Word / Excel Vba vlookup“下標超出范圍”錯誤

Question

我正在嘗試使用vlookup從Word文檔中讀取字符串，並從Excel工作表中返回相應的值。 我似乎在vlookup函數上收到“下標超出范圍”錯誤。

這是我正在查看的工作表： 示例數據

我的代碼是：

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

這個腳本對我有用。 確保“主要”選項卡存在，這就是我重復該錯誤的方式。

VLookup中缺少一個值將給您“無法獲取Vlookup屬性...”錯誤。