请教下面VBA哪错了，谢谢

显示全部楼层 · 2013-3-28 17:19:50

我运行了上面的代码（当然注释掉了部分无关的语句）全部代码运行正常！包括检测文件夹是否存在，不存在则创建，最后保存结束。应该还是变量c和d有可能出错请问具体的出错信息是什么？当出错时，可点击“调试”按钮，然后按CTRL+G打开立即窗口，输入：? "F:\1\" & c & "\" & d & ".xls"观察上述完整文件名是否符合预期值如果发现异常，可中止代码运行，重新按F8键，逐行调试代码，观察何处有错。另外一点建议：对a、b、c、d这四个变量在赋值时，最好完整引用单元格，类似这样：a = thisworkbook.worksheets("工作表名").range("AH1")确保各变量能取得正确的单元格...

千问 · 2013-3-28 17:19:50

xlBook.SaveAs Filename:="F:\1\" & c & "\" & d & ".xls"改成AAAAA = "F:\1\" & c & "\" & d & ".xls"xlBook.SaveAs Filename:=AAAAA加个变量AAAAA...

千问 · 2013-3-28 17:19:50

1、没看到dim语句，所以不知a、b是什么数据类型，看a = Range("AH1")b = Range("AH2") 似乎是range可是For i = a To b 似乎i应该是“数”怎么能用a、b设定循环范围呢？2、...

千问 · 2013-3-28 17:19:50

d有问题，请检查d = Range("E8") 是否为空值...