VBA代碼來創建多個工作簿

我需要修改代碼的工作簿保存爲1.xlsx，2.xlsxVBA代碼來創建多個工作簿

當前下面的代碼亙古不容許我保存方式,,可以有一個人幫助

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

來源

2017-07-24 Sreeni Vasan

所以你需要在消息框中正確輸入號碼創建多個工作簿？ –

我輸入10 ..然後它應該創建10個工作簿...但名稱應該像1.xlsx，2. xlsx等 –

您的代碼運行所有命令只有一次。你需要使用一個循環，當一定次數的迭代（重複）完成後退出。它必須在輸入工作簿號後開始重複。 – jsotola

試試這個：

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

來源

2017-07-24 05:39:15

Perfect..it works :) –

VBA代碼來創建多個工作簿

回答

相關問題