SharePoint关闭工作簿复制工作表至当前工作簿VBA报错1004

问题原因 #

你遇到的运行时错误'1004': 不支持该接口，核心原因是代码中创建了独立的Excel.Application实例（NewWindow），而目标工作表wsMain属于当前Excel实例。跨不同Excel实例的工作表对象无法直接通过Copy After:=方法建立关联，导致接口调用失败。

解决方案：取消独立Excel实例，直接在当前实例操作 #

不需要额外创建新的Excel窗口，仅通过Application.ScreenUpdating = False就能隐藏SharePoint文件的打开过程，同时保证工作表复制的完整性（保留格式、批注、公式等）。修改后的代码如下：

Application.ScreenUpdating = False
Application.DisplayAlerts = False ' 屏蔽打开/关闭文件时的系统提示

Dim wbReport As Workbook
Dim wsReport As Worksheet
Dim wsMain As Worksheet
Dim ReportPath As String

Set wsMain = ThisWorkbook.Worksheets("Main")
ReportPath = "https://company.sharepoint.com/FilePath"

' 直接在当前Excel实例打开SharePoint文件，ScreenUpdating=False会隐藏操作过程
Set wbReport = Workbooks.Open(ReportPath)
Set wsReport = wbReport.Worksheets(1)

' 完整复制工作表到目标位置
wsReport.Copy After:=wsMain

' 关闭源文件，不保存修改（仅读取复制，无需保存）
wbReport.Close SaveChanges:=False

' 恢复系统设置
Application.DisplayAlerts = True
Application.ScreenUpdating = True

补充说明 #

• 此方法直接在当前Excel实例内操作，避免了跨实例对象交互的兼容性问题，是最稳定的工作表完整复制方式。
• 若你之前尝试的xlPasteAll出现异常，大概率是复制范围或粘贴方式的问题，而直接使用Worksheet.Copy方法会完整复制工作表的所有内容（包括格式、批注、数据验证、公式等），完全满足你的需求。

内容的提问来源于stack exchange，提问作者bresn