来自.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表集合以添加新工作表。尝试将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