Excel 2010 VBA宏无法激活原工作簿更新链接的解决方案咨询

你猜的完全没错！问题核心就是新建了独立的Excel应用实例——你的原工作簿CurrWb运行在当前Excel进程里，而New Excel.Application创建的是另一个完全独立的Excel进程，跨进程情况下CurrWb.Activate是完全无效的，因为新进程根本不知道原工作簿的存在，这就导致你后续的计算刷新操作根本没作用在目标工作簿上。

下面给你两种针对性的解决方案，优先推荐第一种：

方案1：放弃新建实例（最简洁可靠） #

直接在当前Excel进程中打开外部工作簿，这样所有操作都在同一个进程内，不存在跨进程的对象引用问题，激活和刷新都能正常工作。

修改后的代码：

Sub UpdateRaw()
    Dim CurrWb As Workbook
    Dim FilePath As String
    Dim book As Excel.Workbook
    
    Set CurrWb = ActiveWorkbook
    FilePath = Range("I1").Value
    
    ' 直接在当前进程打开外部工作簿，无需新建独立实例
    Set book = Workbooks.Open(FilePath)
    
    ' 用专门的链接更新方法，比开关计算更精准
    CurrWb.UpdateLink Name:=CurrWb.LinkSources(xlExcelLinks), Type:=xlExcelLinks
    
    ' 如果需要强制刷新特定工作表的计算，可以保留这段（可选）
    ' CurrWb.Worksheets("Raw_vs_Actual").EnableCalculation = False
    ' CurrWb.Worksheets("Raw_vs_Actual").EnableCalculation = True
    
    book.Close SaveChanges:=False
    Set book = Nothing
    Set CurrWb = Nothing
End Sub

关键说明： #

• 移除了所有New Excel.Application相关代码，避免多进程带来的混乱。
• 使用UpdateLink方法直接更新原工作簿的Excel外部链接，这是Excel官方提供的专门用于链接更新的API，比开关EnableCalculation更可靠，能精准解决INDIRECT函数返回#REF的问题。

方案2：保留新实例（仅当有特殊需求时使用） #

如果因为某些原因必须用独立的Excel实例打开外部工作簿（比如外部文件有宏需要隔离运行），那你不需要切换激活原工作簿——直接通过原工作簿的对象引用执行更新操作即可，因为CurrWb本身就存储在原进程的内存中，跨进程调用它的方法是有效的。

修改后的代码：

Sub UpdateRaw()
    Dim CurrWb As Workbook
    Dim FilePath As String
    Dim book As Excel.Workbook
    Dim app As New Excel.Application
    
    Set CurrWb = ActiveWorkbook
    FilePath = Range("I1").Value
    
    app.Visible = True
    Set book = app.Workbooks.Open(FilePath)
    
    ' 无需激活，直接在原进程执行更新操作
    CurrWb.UpdateLink Name:=CurrWb.LinkSources(xlExcelLinks), Type:=xlExcelLinks
    ' 或者强制刷新特定工作表
    ' CurrWb.Worksheets("Raw_vs_Actual").Calculate
    
    book.Close SaveChanges:=False
    app.Quit
    Set book = Nothing
    Set app = Nothing
    Set CurrWb = Nothing
End Sub

关键说明： #

• 即使外部工作簿在新实例中，只要它处于打开状态，原工作簿就能通过链接路径找到它并完成更新。
• 避免使用跨进程的Activate操作，直接调用CurrWb的方法是最安全的方式。

额外注意事项（针对Excel 2010）： #

• 对于INDIRECT函数，必须确保引用的外部工作簿处于打开状态（你的代码已经满足这个条件），更新后函数就能正确解析引用，不会返回#REF错误。
• 尽量避免多Excel实例的使用，多实例会增加内存消耗，还容易出现对象引用泄漏的问题，只有在必要时才考虑使用。

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