如何在Word VBA中使用VLookup？

Question

我试图提示用户输入，然后从Excel报表中查找该信息。 并填充Word文档，但我不确定错误在哪里。 我试图根据该问题和该问题编写代码。

它给我运行时错误'438'对象不支持此属性或方法。 我知道这是我使用该方法的方式，能否请您指出正确的方向？ 谢谢！

Sub PopulateForm()
    Dim objExcel As New Excel.Application
    Dim exWb As Excel.Workbook
    Dim cin_number As String
    Dim result As String

    ' Prompt user for input
    cin_number = InputBox("Please enter the CIN#", "Input")

    ' Open the cover sheet letter
    Set exWb = objExcel.Workbooks.Open("U:\HRA Cover Sheet Data.xls")

    ' Perform the VLookup...
    result = objExcel.WorksheetFunction.VLookup(cin_number, _
        exWb.Range("A:F"), 5, False)

    ' Testing the output
    MsgBox result

    exWb.Close

    Set exWb = Nothing
End Sub

我正在使用Word 2003和Window XP。

Answer 1

您正在尝试采用exWb范围，它是工作簿，而不是工作表。 尝试

result = objExcel.WorksheetFunction.VLookup(cin_number, _
    exWb.ActiveSheet.Range("A:F"), 5, False)