VBA从工作簿复制并粘贴到ThisWorkbook

我正在尝试复制一个模板并将其粘贴到当前的工作簿中。 但代码正在出错。 我得到一个运行时错误1004。

Sub templateToBBU() 'OPEN TEMPLATE Application.AskToUpdateLinks = False Application.DisplayAlerts = False Dim sPath As String, sFile As String Dim wb As Workbook sPath = "C:\Users\user123\Desktop\" sFile = sPath & "BBU_CMD_TEMPLATE.xlsx" Set wb = Workbooks.Open(sFile) 'COPY TEMPLATE PASTE IN BBU DOC wb.Sheets("TEMPLATE").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) End Sub 

谢谢大家，

Answer 1

我testing了你的代码Excel 2016，它工作没有问题。 看来这是Excel 2003 – 2010的已知问题，有一个解决方法 。 将模板文件保存为Excel模板（xltx），然后尝试以下操作：

 Sub templateToBBU() 'OPEN TEMPLATE Application.AskToUpdateLinks = False Application.DisplayAlerts = False Dim sPath As String, sFile As String sPath = "C:\Users\User123\Desktop\" sFile = sPath & "Book1.xltx" ThisWorkbook.Sheets.Add Type:=sFile End Sub