VBA Количество строк в неоткрытом документе Excel (из слова VBA)

Question

Я пытаюсь использовать vba из word для подсчета количества строк, которые есть в моем списке в excel.Проблема в том, что я не могу использовать функцию exWb.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row для файла Excel, который находится на USB-диске, который я открываю с помощью vba.

Я пытался выяснить, если яЯ неправильно открываю файл Excel, но мне удалось получить значение из одной ячейки, используя exWb.Sheets("Sheet1").Cells(1, 1)

Мой код:

    Private Sub B_FillForm_Click()

    Dim objExcel As Object
    Set objExcel = CreateObject("Excel.Application")
    Set exWb = objExcel.Workbooks.Open("D:\DATA.xlsx")
    Dim last_row As Long
    last_row = exWb.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox (last_row)

    exWb.Close

    Set exWb = Nothing


    End Sub

Мой файл Excel в настоящее время заполнен A1-A5в.

Я ожидаю, что выводом будет окно сообщения с 5, но фактическим выводом будет сообщение об ошибке:

"Ошибка времени выполнения 424, требуется объект"

Answer 1

Вам нужно объявить объект своей книги, прежде чем вы сможете установить ссылку.

 Private Sub B_FillForm_Click()

    Dim objExcel As Object
    Dim exWb As Workbook  'missing from your code
    Set objExcel = CreateObject("Excel.Application")
    Set exWb = objExcel.Workbooks.Open("D:\DATA.xlsx")
    Dim last_row As Long
    last_row = exWb.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox (last_row)

    exWb.Close

    Set exWb = Nothing

End Sub