VBA 中的 Vlookup 工作表函數（運行時錯誤 9）

Question

我是 VBA 新手，我有以下函數代碼：

Function checktype(ByVal modele As String)

Dim srchRange As Range
Dim book1 As Workbook

'Set some Workbook variables:
Set book1 = Workbooks("C:\Users\MZ\Desktop\EPI.xlsx")


Set srchRange = book1.Sheets(1).Range("A1:D800")

'This assumes that the Book2 is Open and you are on the desired active worksheet:
checktype = Application.WorksheetFunction.VLookup(modele, srchRange, 4, False)


End Function

此代碼的目的是使用 Vlookup 函數從另一個工作簿中獲取某個數字，並將該值返回給函數checktype 。

問題是我收到運行時錯誤 9。當我單擊 Debug 時，以下行會突出顯示：

Set book1 = Workbooks("C:\Users\MZ\Desktop\EPI.xlsx")

Answer 1

要么確保工作簿在同一個 excel實例中打開，並像這樣引用它：

Set book1 = Workbooks("C:\Users\MZ\Desktop\EPI.xlsx")
Set book1 = Workbooks("EPI.xlsx") 'specifying only the name is OK as well

或者

Set book1 = Workbooks.Open("C:\Users\MZ\Desktop\EPI.xlsx")

---

同一實例中的 2 個 Excel 文件的示例：