Ошибка объекта при использовании установки на переменную

Question

Ошибка объекта появляется независимо от того, что я пытаюсь. Я не настолько опытен в VBA.

Кажется, это когда я присваиваю переменной lastrow значение.

Const sFILE_PATH    As String = "C:\Users\Downloads\"
Const sEXTENSION    As String = ".xlsm"

Dim lastrow As Long
Dim lastrow_Offset As Long: lastrow_Offset = ThisWorkbook.Sheets("Test").Cells(Rows.Count, "h").End(xlUp).Row

Dim wbk As Workbook
Dim sFileName As String

sFileName = "2018-12"
Set wbk = Workbooks.Open(sFILE_PATH & sFileName & sEXTENSION)

Set lastrow = wbk.Sheets("Acc").Cells(Rows.Count, "C").End(xlUp).Row

Answer 1

Вы определили Dim lastrow As Long, поэтому это не объект, который должен быть Set. Это переменная, которую нужно присвоить

lastrow = wbk.Sheets("Acc").Cells(Rows.Count, "C").End(xlUp).Row

Я не проверял это с вашей подразумеваемой структурой рабочей книги, но предположим, что wbk.Sheets("Acc").Cells(Rows.Count, "C").End(xlUp).Row оценивается как Long