[VBA Outlook] Znalezienie ostatniego uzywanego wiersza w Excelu

Question

Witam Forum!

Pisząc makro z poziomu Outlooka próbuję otworzyć plik Excela i pobrać z niego ostatni używany wiersz. Wszyskie próby kończą się niestety błędem Run-time error: '424' Object Required przy próbie przypisania do zmiennej last_row.

Czy poniższy kod posiada jakiś błąd? Uprzedzam, że Arkusz Sheet1 istnieje!

Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open("\\networklocation\file.xlsx")
last_row = xlWB.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

Pozdrawiam,

Witek

Answer 1

Witam,

w outlook'u nie istnieje zmienna "xlUp", jest to zmienna zdefiniowana w excelu, więc w outlooku trzeba ją zadeklarować:

Private Const xlUp as long = -4162

 tak samo właściwość "Rows" nie istnieje w outlooku, trzeba pokazać że jest to właściwość obiektu Sheets w aplikacji excel, czyli:

xlWB.Sheets("Sheet1").Rows.Count

pozdrawiam