excel - 将工作簿传递给 Access VBA 中的函数时出现错误 424

Question

在 Access 中使用 VBA，我试图将 Excel 工作簿传递给另一个函数。

我使用以下内容创建工作簿(剪断)

Dim Wbk             As Object
Dim sht             As Object
Dim xl              As Object

Set xl = CreateObject("Excel.Application")
Set Wbk = xl.Workbooks.Open(OutputFileName)
Set sht = xl.Worksheets("qryTemp")

使用上面我可以操作 Excel 实例。

但是我尝试使用将实例传递给另一个函数

OutputLog (xl)

接着

Function OutputLog(xl As Variant) As String
    xl.Application.Visible = True
End Function

...我得到错误 424 需要对象

Answer 1

问题出在这一行:
OutputLog (xl)
此处使用括号转换 Object ( Application ) 转换为简单类型 ( String “Excel 应用程序”)。

正确的版本是:
OutputLog xlCall OutputLog(xl)
In this answer您可以找到有关在 VBA 中调用过程的详细信息。