Rows("9:9").Select
For i = 0 To rs.RecordCount - 2
Selection.Insert Shift:=xlDown
Next第一次运行可以,但第二次运行时,就提出如下出错了,要退出程序再进去,请问这是为什么呀,怎么样搞定对像'Rows'的方法,'_Global'失败
For i = 0 To rs.RecordCount - 2
Selection.Insert Shift:=xlDown
Next第一次运行可以,但第二次运行时,就提出如下出错了,要退出程序再进去,请问这是为什么呀,怎么样搞定对像'Rows'的方法,'_Global'失败
解决方案 »
- 伪专家现形记
- vb中 如何把Text1.text接收到的信息寫進SQL數據庫?
- Erase 数组,没有释放内存,是否需要再set 数组 = Nothing???
- 关于SQL语句的简写,大家指点下。。
- 关天注册表,如何用程序实现禁止用户使用IE呢,
- 关于在data控件和sql的关系???
- 安装了vb sp5后,打开一个现有的项目时出现::不能加载DBGrid32.ocx 为什么呢?
- ?请教高手有关Align的问题。
- 求教,关于TreeView的详细使用方法,包括添加,修改,删除,查找等………
- 初学VB的我,请大家帮忙用TCP/UDP协议编写网络通信程序,有提示的,请看一下,好不:D
- 小问题,快帮帮我啊!
- 加载别人写的控件,提示加载错误
..........
'Rows("9:9").Select
For i = 0 To rs.RecordCount - 2
xlSheet.Rows("9:9").Insert Shift:=xlDown
Next记住:所有操作EXCEL的语句要以定义好的对象变开始。另:select与selection可以合并