在某些文件夾位置創建多個工作簿

Question

假設我要在特定位置創建5個工作簿。 我正在嘗試使用此代碼，但是它不起作用。 （運行時錯誤，自動化錯誤），這有什么問題？

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來收集Workbooks 。

您還需要更改代碼的順序，因此您要么不必每次都關閉工作簿，要么要先關閉工作簿，然后再添加一個新的工作簿（這實際上沒有多大意義。 ，但無論如何我都會顯示一個示例）。

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