excel - 从 .XLSX 复制 VBA 表并将其插入到 .XLA 文件中

Question

我正在尝试将文件中的工作表复制为.XLSX文件中的隐藏工作表.XLA。

我只设法从 复制.XLA -> XLSX，但没有XLSX -> XLA。

看看我的两个函数：

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

只要.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