vba 对象变量或with块未设置

vba 对象变量或with块未设置是设置错误造成的，解决方法为：

1、首先打开excle软件，在菜单中选择“开发工具”-》“Visual Basic”,进入VBA的编程界面。

2、选择一个对象，这里选择sheet1，新建一个子过程setobgjs。

3、首先是声明对象变量，通过Dim来声明，和普通变量的声明很类似，只不过是数据类型变为了Object,如： Dim obj1 As Object。

4、设置该对象变量的值，可以通过set方法来设置，如Set obj1 = Range("A1")。

5、对这个对象所表示的边框设置底色，为黄色。

6、最后选择“运行”按钮运行。

你第一次运行这个sub的时候。 rs 是recordset 变量 cn是数据库变量

当你运行完这个sub的时候。rs 被设置为了 nothing，cn 也被设置成了 nothing

再次运行这个sub的时候。 cn.Open Constr 这里就会出错

建议修改一下，程序启动后 cn.open

这个sub 里面 rs.open

中间对数据表进行 *** 作

然后 rs.close

end sub 就行了。

---