VBA代码创建多个工作簿

Question

我需要修改代码以将工作簿保存为1.xlsx，2.xlsx

目前以下代码不允许我保存这种方式，可以帮助

Sub addbook()
Dim d As Double
d = InputBox("Enter Number of Work books to be created")
For i = 1 To d

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "1" & i & ".xlsx"
ActiveWorkbook.Close
Next
End Sub

Answer 1

试试这个：

Sub addbook()
Dim i As Double
j = InputBox("Enter Number of Work books to be created")
relativePath = ThisWorkbook.Path & "\"

For i = 1 To j
    Workbooks.Add
    ActiveWorkbook.SaveAs filename:=relativePath & i & ".xlsx"
    ActiveWorkbook.Close
Next i

End Sub