Как использовать VLookup в Word VBA?

Question

Я пытаюсь предложить пользователю ввести данные, а затем найти эту информацию в отчете Excel. Заполните Word Document, но я не уверен, где ошибка. Я попытался основать код из этого вопроса и этого вопроса.

Это дает мне ошибку времени выполнения '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 и Windows XP.

Answer 1

Вы пытаетесь принять диапазон exWb которая является рабочей книгой, а не рабочей таблицей. Пытаться

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