在特定的文件夹位置创build多个工作簿

可以说我想在某个位置创build5个工作簿。 我试图使用这个代码，但它不工作。 （运行时错误，自动化错误），它有什么问题呢？

Sub blabal() Dim wbk As Workbook Dim i As Integer i = 1 Set wbk = Workbook.Add Do Until i = 5 wbk.SaveAs "C:\Users\User1\Desktop\abc\" & i wbk.Close i = i + 1 Loop End Sub 

Answer 1

Set wbk = Workbooks.Add

您需要指定Workbooks而不是Workbook 。

Workbooks是一个集合对象。 您正在将Workbook添加到Workbook集合中。

您还需要更改代码的顺序，因此，您不是每次都closures工作簿，或者closures工作簿，但是随后添加了一个新的工作簿（这并没有什么意义，但我会展示一个例子）。

 Set wbk = Workbooks.Add Do Until i = 5 wbk.SaveAs "C:\Users\User1\Desktop\abc\" & i i = i + 1 Loop 

要么

 Do Until i = 5 Set wbk = Workbooks.Add wbk.SaveAs "F:\" & i wbk.Close i = i + 1 Loop