VBA：マクロを含む別のブックからシートをインポートする

Question

Excelで単純なマクロを作成して別のブックを開き、シートをブックにコピーしました。これは普通のxlsファイルにはうまくいきましたが、マクロを含む.xltmファイルでこのファイルを使用しようとしたとき、そのマクロのために範囲外のエラーが発生しました。

Excel vbaでブックを開き、マクロを含むコピーとシートを作成する方法はありますか？あなたが代わりにXLSMファイルを使用しているとき

私のコード

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") 

とは何かを持ってもらえますか？