我正在尝试使用以下VBA程序创建Excel工作簿的多个副本:
Public Sub DuplicateBookMultipleTimes()
Dim n As Integer
On Error Resume Next
n = InputBox("How many copies of the active workbook do you want to make?")
If n >= 1 Then
For numtimes = 1 To n
ActiveWorkbook.SaveCopyAs "C:UsersfmhijanDesktopAwet data transfer" & Workbooks(Workbooks.Count) & ".xlsm"
Next
End If
End Sub
我的预期结果是看到工作簿 1、工作簿 2、工作簿 3 ...取决于我想要多少份。
我得到显示框并输入数字。程序运行良好,但我看不到文件夹中的文件。请指教。感谢您的帮助。
试试这个:
Public Sub DuplicateBookMultipleTimes()
cFolder = "C:UsersfmhijanDesktopAwet data transfer"
nCopies = InputBox("How many copies of the active workbook do you want to make?")
If nCopies >= 1 Then
For nLoop = 1 To nCopies
ActiveWorkbook.SaveCopyAs cFolder & "workbook" & nLoop & ".xlsm"
Next
End If
End Sub