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 文件的示例：