如何通过VBA将变量从MS Access传递至MS Excel函数

核心错误修正 #

你的代码中调用Excel函数的xlapp.Run语法错误，正确的调用方式是将函数名（字符串形式）和参数分开传递，而非直接在Run方法内写函数调用表达式。

修正后的Access代码 #

Public Function sub_1() As Double
    'MS Access模块
    Dim xlapp As Excel.Application
    Dim wkb As Excel.Workbook
    Dim arg1 As Double
    Dim result As Double
    
    ' 初始化Excel应用（避免重复声明New和CreateObject）
    Set xlapp = CreateObject("Excel.Application")
    xlapp.Visible = True
    Set wkb = xlapp.Workbooks.Open("C:\Book1.xlsm")
    
    arg1 = 100
    ' 正确调用Excel函数：第一个参数是函数名字符串，后续为传递的参数
    result = xlapp.Run("func_2", arg1)
    
    ' 可选：输出或使用返回结果
    Debug.Print "Excel函数返回值：" & result
    sub_1 = result
    
    ' 清理对象（避免内存泄漏）
    Set wkb = Nothing
    xlapp.Quit
    Set xlapp = Nothing
End Function

关键注意事项 #

• 如果Excel的func_2函数存放在指定模块中（比如模块名为Module1），需要添加模块名前缀：

  result = xlapp.Run("Module1.func_2", arg1)
  

• 确保Excel文件Book1.xlsm已启用宏，且func_2函数为**公共（Public）**权限，否则Access无法调用。
• 绑定方式选择：若使用Dim xlapp As Excel.Application，需先在Access的VBA编辑器中引用「Microsoft Excel xx.x Object Library」；若追求兼容性，改用后期绑定：Dim xlapp As Object，无需提前引用库文件。

Excel端代码无需修改 #

你的Excel模块中func_2函数写法正确，保持原样即可：

Public Function func_2(arg1 As Double) As Double
    'MS Excel Module
    Dim ans As Double
    ans = arg1 * 2
    Debug.Print ans
    func_2 = ans
End Function

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