Excel 2010 VBA如何切换至另一个已打开的Excel实例并访问工作簿？

问题场景 #

在Excel 2010多实例环境下，需将另一实例中已打开的Fuel2010I.xlsm数据导入当前实例的Book1。使用AppActivate可判断工作簿是否已打开（跨实例有效），但存在以下问题：

• 工作簿未打开时，在当前实例打开后可正常操作；
• 工作簿已打开时，切换实例后无法访问其工作表，触发Subscript out of range错误，无法正确访问目标实例中的内容。

原测试代码：

Sub AppAct()

    '工作簿(1): workbook.name="Book1"
    '工作簿(2): workbook.name="Fuel2010I.xlsm"
    '工作簿(2): workbook.fullname="C:\FltTools\Fuel2010I.xlsm"
    '工作簿(2)中存在工作表"FL"
    '工作簿(1)中存在工作表"S"
    
    On Error Resume Next
    AppActivate ("FUEL2010I.xlsm")
    If Err.Number > 0 Then '若工作簿未打开，则打开并选择工作表"FL"
        On Error GoTo 0
        Workbooks.Open Filename:="C:\FltTools\Fuel2010I.xlsm"
        Sheets("FL").Select '此部分正常运行
    Else '若工作簿已打开，选择工作表"FL"
        On Error GoTo 0
        Sheets("FL").Select '下标越界，无法访问FUEL2010I.xlsm
    End If
    Sheets("S").select
End Sub

问题原因 #

Sheets("FL").Select默认在当前Excel实例的工作簿集合中查找工作表，当目标工作簿属于另一实例时，当前实例的工作簿集合中不存在该工作表，因此触发下标越界错误。AppActivate仅能激活窗口，但无法让当前VBA代码关联到目标实例的工作簿对象。

解决方案 #

使用GetObject函数直接获取目标工作簿的对象引用（跨实例有效），无需依赖窗口激活。若工作簿未打开，再通过Workbooks.Open在当前实例打开。同时遵循VBA最佳实践，避免使用Select/Activate，直接通过对象引用操作数据。

修正后的代码：

Sub ImportFromCrossInstanceWorkbook()
    Dim targetWB As Workbook
    Dim targetPath As String
    
    targetPath = "C:\FltTools\Fuel2010I.xlsm"
    
    '尝试获取已打开的目标工作簿（跨实例有效）
    On Error Resume Next
    Set targetWB = GetObject(targetPath)
    On Error GoTo 0
    
    '若工作簿未打开，在当前实例打开
    If targetWB Is Nothing Then
        Set targetWB = Workbooks.Open(Filename:=targetPath)
    End If
    
    '直接通过对象引用操作数据（示例：复制FL工作表到当前工作簿S之后）
    targetWB.Sheets("FL").Copy After:=ThisWorkbook.Sheets("S")
    
    '可选：激活目标实例窗口及工作表
    targetWB.Application.Visible = True
    targetWB.Activate
    targetWB.Sheets("FL").Activate
End Sub

关键说明 #

• GetObject(targetPath)：可直接获取指定路径的已打开工作簿对象，无论其属于哪个Excel实例；
• 避免Select/Activate：直接通过对象引用（如targetWB.Sheets("FL")）操作数据，更稳定且效率更高；
• 实例切换：若需显示目标实例窗口，通过targetWB.Application.Visible和Activate实现，确保窗口可见后再操作。

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