VBA-Workbooks.Add（模板）失敗，超出范圍

Question

我正在嘗試根據現有Excel文件的格式創建一個新的工作簿，並且正在使用以下代碼

sub newWorkBook()    
Dim newWorkBook as New WorkBook
Set newWorkBook = WorkBooks.Add("Template.xls")
/*It is erroring on the above line*/
                newWorkBook.Application.DisplayAlerts = False
                With newWorkBook
                    .SaveAs "C:\new.xls"
                End With
                domainWorkBook.Save
                domainWorkBook.Application.DisplayAlerts = True
                domainWorkBook.Close
                Set newWorkBook = Nothing
End Sub

在Set newWorkBook = WorkBooks.Add("Template.xls")下標超出范圍錯誤。

它還會打開一個名為Template1.xls的新Excel並引發錯誤...有什么建議嗎？

Answer 1

為什么不只是打開模板和另存為新名稱？

Sub qwerty()
    Workbooks.Open "C:\TestFolder\Template.xls"
    ActiveWorkbook.SaveAs "C:\TestFolder\new.xls"
    ActiveWorkbook.Close
End Sub