在Outlook VBA中打开Excel工作簿时出现不匹配错误

Question

我已经对此进行了研究，但没有发现任何东西。 应该没有那么难解决。 我正在尝试在Outlook中使用VBA打开Excel工作簿，但它引发了不匹配错误，并且我不知道如何解决。

Function openWorkbook()

Dim xlApp As Object
Dim sourceWB As Excel.Application

Set sourceWB = Workbooks.Open("Z:\Stress Test\GSST Daily\weekly report\June\GSST Daily Estimation week of 06.22.xlsx")

End Function

Answer 1

您需要修复变量声明。 由于您使用的是早期绑定，因此非常简单。 如果您不打算返回任何东西，我也将其更改为Sub 。

Sub OpenWorkbook()
    Dim xlApp As Excel.Application
    Dim sourceWb As Excel.Workbook

    Set xlApp = New Excel.Application
    Set sourceWb = xlApp.Workbooks.Open("Z:\Stress Test\GSST Daily\weekly report\June\GSST Daily Estimation week of 06.22.xlsx")
End Sub