＆＃34;错误2023＆＃34;使用＆＃34; ExecuteExcel4Macro＆＃34;在获取值时

Question

我在其中维护一个带有VBA的Excel工作簿。

使用＆＃34; ExecuteExcel4Macro＆＃34;从已关闭的Excel工作簿中获取值时，VBA失败。

从中获取值的工作簿保存在Intranet网页上。

GetValue = ExecuteExcel4Macro(arg)

这行代码失败。 ＆＃34;错误2023＆＃34;归还。

通过修改我发现的代码：

tmp = GetValue(path, file, sheet, ref)
' tmp gets the "Error 2023"-return.
Debug.Print tmp

' Gets the expected data-value from the excel-sheet.
Datum_Homepage = GetValue(path, file, sheet, ref)

如果您将其称为两次次，则第一次通话将获得＆＃34;错误2023＆＃34;第二个调用获得预期值（日期）。

这怎么可能？

GetValue函数的完整代码：

Public Function GetValue(path, file, sheet, ref) As Variant

    Dim arg As String

    If Right(path, 1) <> "/" Then path = path & "/"

    arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Address(, , xlR1C1)

    GetValue = ExecuteExcel4Macro(arg)

End Function