excel - VBA .XLSX からシートをコピーして .XLA ファイルに挿入する

Question

.XLSXファイルの隠しシートとしてファイルからシートをコピーしようとしてい.XLAます。

からのみコピーできましたが、 からはコピー.XLA -> XLSXできませんでしXLSX -> XLAた。

私の2つの機能を見てください：

Sub copyFromXLAtoXLSX()
    temp.Sheet1.Copy Workbooks(1).Sheets(1)  
End Sub

Sub copyFromXLSXtoXLA()
    ' It gives me the error: Run-time error '1004': Application-defined or object-defined error  
    Workbooks(1).Sheets(1).Copy temp.ThisWorkbook.Sheets(1)  
End Sub

どんな助けでも大歓迎です。ありがとう！

Answer 1

XLA シート コレクションにアクセスして新しいシートを追加することはできません.IsAddIn=True。XLA ワークブックを に設定し.isAddIn = False、コピーを作成してから に戻してTrueください。

私はそれが（テストされる）べきだと思います：

Sub copyFromXLSXtoXLA()
    Workbooks(1).IsAddIn = False '<-- set it false
    Workbooks(1).Sheets(1).Copy temp.ThisWorkbook.Sheets(1)  
    Workbooks(1).IsAddIn = True '<-- set it back to true
End Sub