如何将变量从 MS Access 传递到 MS Excel

Question

我正在使用 MS Access，需要使用 VBA 将变量从 MS Access 传递到 Excel 函数。

我找了一个小时也没找到这个问题的答案。

任何帮助将不胜感激！

谢谢你

示例：

Public Function sub_1() As Double
'MS Access module

    Dim xlapp As New Excel.Application
    Dim wkb As Excel.Workbook
    Dim wks As Excel.Worksheet
    Dim arg1 as Double
    
    Set xlapp = CreateObject("Excel.Application")
    xlapp.Visible = True
    Set wkb = xlapp.Workbooks.Open("C:\Book1.xlsm")
    arg1 = 100
    xlapp.Run func_2(arg1) '????

End Function

---

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

Answer 1

https://jkp-ads.com/rdb/win/s9/win001.htm#:~:text=Or%20use%20this%20to%20call%20a%20macro/function%20with%20arguments展示了如何这样做。

基本上：

MsgBox xlapp.Run("'" & wkb.Name & "'!func_2",  arg1)