Word / Excel Vba vlookup＆＃34;下标超出范围＆＃34;错误

Question

我试图使用vlookup从word文档中读取字符串并从excel表中返回相应的值。我似乎得到了一个＆＃34;下标或范围＆＃34; vlookup函数出错。

这是我正在查看的工作表： Sample Data

我的代码是：

Sub Autofill()
Dim oExcel As New Excel.Application
Dim testdb As Excel.Workbook
Dim testvar1 As Double

Set testdb = oExcel.Workbooks.Open("k:\SIF\Vibration\Dbase.xlsm")

testvar1 = oExcel.WorksheetFunction.VLookup("Roger", testdb.Sheets("Main").Range("A1:C4"), 2, False)

MsgBox (testvar1)

End Sub

我也试过使用Application.Vlookup函数，但无济于事。得到了同样的错误。

Answer 1

这个脚本对我有用。确保Main选项卡存在，这就是我重复错误的方式。

VLookup中缺少的值会让您“无法获取Vlookup属性...”错误。