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

【问题标题】：VBA copy sheet from a .XLSX and insert it into a .XLA file从 .XLSX 复制 VBA 表并将其插入到 .XLA 文件中
【发布时间】：2015-04-08 13:09:54
【问题描述】：

我正在尝试将 .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

非常欢迎任何帮助。谢谢！

【问题讨论】：

标签： excel vba xlsx worksheet xla

【解决方案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

【讨论】：