在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