如何在另一个Excel实例的工作簿中调用函数？解决Error 438报错

出现Object doesn't support this property or method (Error 438)是由三个核心问题导致的，对应修正方案如下：

错误原因与修正点 #

1. 拼写错误：原代码中app.ActiveWorbook少了字母k，正确写法是app.ActiveWorkbook，拼写错误导致无法获取有效工作簿对象。
2. 函数调用方式错误：Workbook对象本身不包含自定义函数作为其成员方法，直接用wb.fun()会触发438错误，必须通过Application.Run来调用工作簿VBA模块中的自定义函数。
3. 参数传递问题：调用call_fun时加了括号，会将Workbook对象强制转为值传递，而函数声明为ByRef，可能导致对象引用异常，应去掉括号直接传递对象。

修正后的完整代码 #

工作簿A - ThisWorkbook模块 #

Sub call_fun(ByRef wb As Workbook)
    ' 通过Application.Run调用目标工作簿的自定义函数
    Dim result As String
    ' 格式：工作簿名称!函数名，确保调用的是目标实例中的函数
    result = wb.Application.Run(wb.Name & "!fun")
    MsgBox result
End Sub

工作簿A - 工作表A模块 #

Sub sheet_main()
    Dim app As Excel.Application
    Dim targetWb As Workbook
    
    Set app = New Excel.Application
    ' 直接保存打开的工作簿引用，避免依赖ActiveWorkbook
    Set targetWb = app.Workbooks.Open("path\to\file\workbook B.xlsm")
    
    ' 传递对象时不要加括号，保证ByRef传递正常
    ThisWorkbook.call_fun targetWb
    
    ' 关闭工作簿时明确是否保存修改
    targetWb.Close SaveChanges:=False
    app.Quit
    ' 释放对象引用
    Set targetWb = Nothing
    Set app = Nothing
End Sub

工作簿B - ThisWorkbook模块（无需修改） #

Function fun() As String
    fun = "Function from workbook B"
End Function

额外说明 #

• 使用wb.Application.Run而非当前Excel实例的Run，确保调用的是目标独立实例中的函数，避免环境混淆。
• 直接保存打开的工作簿引用targetWb，比依赖ActiveWorkbook更可靠，防止因窗口焦点变化导致的对象引用错误。

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