从.XLSX的VBA复制工作表并将其插入.XLA文件

我试图从一个.XLSX文件复制工作表作为隐藏工作表.XLA文件。

我只设法从.XLA -> XLSX复制，而不是XLSX -> XLA 。

看看我的两个function：

 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 。

我认为它应该（被testing）：

 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