EXCEL VBA代码GetObject报错？ excel vba编程教程完整版

现时大家对有关EXCEL VBA代码GetObject报错？真相令人了解，大家都想要了解一下EXCEL VBA代码GetObject报错？，那么小萌也在网络上收集了一些对有关excel vba编程教程完整版的一些内容来分享给大家，画面曝光简直不忍直视，希望大家会喜欢哦。

我猜想你是因为EXCEL的一个设置没有设置好,解决方法如下: 打开EXCEL界面,点击工具-选项,在弹出的窗口中选择 安全, 将上面移除个人信息的对勾去掉,这样应.

可能您当前的工作薄没有代码中提到的工作表吧

该引用的没引用到.

cell 改为 cells 另,如果shee3 里有数据,而COSTCENTER没有的话,会报错

你这种情况应该是用excelvba来操作了word或者access等,alt+f11 进入vba编辑器,在vba编辑器的工具菜单中点击 引用 修改一下引用对象的版本

i=2的时候,r=-33,你的行数就变成负数了,当然不对了 是不是应该倒过来?r=(i-1)*33?? 还有报错了之后你其实可以调试的啊,鼠标挪到r和i上面就可以看到对应的数值,也可以加断点

应该改成这样: Cells(1,1)FormulaR1C1 = ＂=SUMIF('[BOOK1.xls]＂ & month & ＂'!C29,＂ & Chr(34) & Cells(1, 9) & Chr(34) & ＂,'[BOOK1.xls]&month&＂'!C＂ & j - 10 & ＂)＂ 你把]“&month&”放在双引号内意思是引用“[BOOK1.xls]一月”,但是只有VBA才知道month是变量,Excel是不知道的,所以放在公式里,Excel只会认为month是一个没定义的名称,所以会出错.

Dim iRow, iCol, iTar As string 另外:代码有些逻辑错误 If iRow >= 2 And iCol = 2 And iTar <> ＂＂ Then ElseIf iRow >= 2 And iCol = 2 And iTar = ＂＂ Then Application.EnableEvents = False '这句应该在这里,因为上面那行执行了,下面这行是不会执行的. Target.Offset(0, -1) = Now() Cells(iRow, iCol + 9) = ＂＂ Cells(iRow, iCol + 10) = ＂＂ Application.EnableEvents = True End If

报错的拷屏呢? 如果是下标越界,主要是表是否存在(DATABASE和mm(i)的值),以及x等cells的行列是否在有效范围内.

你该你工作表里压根没有sheet1啊,还有代码不该这么写,你写成thisworkbook.worksheets(1)

这篇文章到这里就已经结束了，希望对大家有所帮助。