VBA：从包含宏的其他工作簿导入工作表

Question

我在Excel中创建了一个简单的宏来打开另一个工作簿并将工作表复制到工作簿中。这对于普通的xls文件非常有用，但是当我尝试在包含宏的.xltm文件中使用它时，由于它包含的宏，我得到了一个越​​界错误。

在Excel vba中是否有任何可能的方法来打开工作簿并在其中复制并包含宏？

我的代码

Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = "c:\"
fileName = Dir(directory & "book1.xls")
Workbooks.Open (directory & fileName)
For Each sheet In Workbooks(fileName).Worksheets
   total = ThisWorkbook.Worksheets.Count
   Workbooks(fileName).Worksheets(sheet.Name).Copy after:=ThisWorkbook.Worksheets(total)

Next sheet

谢谢你们，

Answer 1

它可能与您的

有关

fileName = Dir(directory & "book1.xls")

当您使用xlsm文件时？