[已解决]运行时错误'-2147221080 (800401a8)'自动化（automation）错误 是怎么回事？

jinbo353535

Sub 创建新工作簿_测试1()
Dim循环1 As Integer
Dim W As Workbook
Set W = Workbooks.Add
      For 循环1  = 1 To 3

     W.SaveAs ThisWorkbook.Path & "\a" & 循环1 & ".xlsx"   问题1：循环'第1次可以，循环'第2次就提示：运行时错误'-2147221080 (800401a8)'自动化（automation）错误

    ActiveWorkbook.Close
    Next   
End Sub

问题2：上面一些代码是找的！有一些不明白，比如：Dim W As Workbook    ，而赋值语句：Set W = Workbooks.Add  意思是 W = 新建的工作簿，还是赋值给方法？

谢谢各位前辈赐教！！！！

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2012-11-20 22:40

jinbo353535 发表于 2012-11-20 22:35
是，没错！是从头到尾运行一次了！那像这样错误要怎么解决呢？

使用 dir 来判断文件是否存在
s=ThisWorkbook.Path & "\a" & 循环1 & ".xlsx"
if len(dir( s))=0 the
W.SaveAs s
end if

如果文件存在则先删除文件，然后在另存

s=ThisWorkbook.Path & "\a" & 循环1 & ".xlsx"
if len(dir(s))>0 the kill s
w.saveas s

跳转到最佳答案楼层

无聊的疯子

你所说的循环第一次是指完整的运行了一次代码吧？

在第二次运行代码时，之所以会提示错误，是因为在另存时，指定路径中已经存在相同的文件名了

Dim W As Workbook  是指声明一个 工作薄类型的变量
Set W = Workbooks.Add  是指，这个 W 是新建的工作薄
在这里，新建工作薄的同时，对变量进赋值！

jinbo353535

无聊的疯子 发表于 2012-11-20 22:24
你所说的循环第一次是指完整的运行了一次代码吧？

在第二次运行代码时，之所以会提示错误，是因为在另存 ...

是，没错！是从头到尾运行一次了！那像这样错误要怎么解决呢？

无聊的疯子

jinbo353535 发表于 2012-11-20 22:35
是，没错！是从头到尾运行一次了！那像这样错误要怎么解决呢？

使用 dir 来判断文件是否存在
s=ThisWorkbook.Path & "\a" & 循环1 & ".xlsx"
if len(dir( s))=0 the
W.SaveAs s
end if

如果文件存在则先删除文件，然后在另存

s=ThisWorkbook.Path & "\a" & 循环1 & ".xlsx"
if len(dir(s))>0 the kill s
w.saveas s

jinbo353535

无聊的疯子 发表于 2012-11-20 22:40
使用 dir 来判断文件是否存在
s=ThisWorkbook.Path & "\a" & 循环1 & ".xlsx"
if len(dir( s))=0 the

谢谢你！我之前是直接用路径&循环变量&“。xlsx” 这样循环没问题（整个我也声明为变量了）！那是用：ThisWorkbook.Path  这个比较好，还是路径呢？在速度上那个会快一点！  

无聊的疯子

jinbo353535 发表于 2012-11-20 22:45
谢谢你！我之前是直接用路径&循环变量&“。xlsx” 这样循环没问题（整个我也声明为变量了）！那是用：Thi ...

在处理的数据量不大的情况一，速度上没什么影响

使用变量的好处是
1，如果修改路径，只需要修改一处（这是针对当前问题而言）
2，整个代码看起来很简洁，不使用变量则会看起来很繁琐，给人感觉很累

jinbo353535

无聊的疯子 发表于 2012-11-20 23:05
在处理的数据量不大的情况一，速度上没什么影响

使用变量的好处是

谢谢你，抽时间来帮我解答疑惑！学习了，谢谢···

jinbo353535

jinbo353535 发表于 2012-11-20 23:26
谢谢你，抽时间来帮我解答疑惑！学习了，谢谢···

你好，关于昨天那个自动化运行错误，我还是没弄明白！我另存的名字都是变量，应该不存在有相同名字的工作簿！我本来想，简单解决这个问题，就是直接把地址声明成变量，就不会了！可是，我今天同时另存3个名称不同的工作簿(比如：A1.xlsx、b1.xlsx、c1.xlsx)，也是直接把地址声明成变量，又出现了！我又整不明白了！因为，我是刚刚学VBA，是不是另存的语法，我搞错了？