VBA xlUp ошибка в макросе

Question

Может кто-нибудь мне помочь? у меня есть этот синтаксис

Dim oExcel As Variant
Dim oWB As Variant

'Set oWB = CreateObject("Object.Workbook")
Set oExcel = CreateObject("Excel.Application")
Set oWB = oExcel.Workbooks.Open("Z:\MPR\Maret 2017\31 - 03 -2017\DF\PAL - DF.xlsx")
oWB.Sheets(1).select
Dim oNumRow As Integer

'oNumRow = oWB.Sheets(1).UsedRange.Count
With oWB
    oNumRow = oWB.Sheets(1).Cells(oWB.Sheets(1).Rows.Count, "A").End(xlUp).row 'error
End With
oNumRow = oWB.Sheets(1).Cells(oWB.Sheets(1).Rows.Count, 1).End.row 'error
oNumRow = oWB.Sheets(1).Range("A1", oWB.Sheets(1).Range("A1").End(xlDown).row).Rows.Count'error

если я изменю Dim oExcel As Variant Dim oExcel Как Excel.Application, ошибка программы там. Кто-нибудь может предложить какую-нибудь идею? Я новичок в программировании VBA для макросов

Answer 1

Если вы не запускаете свой код в Excel VBA или у вас есть ссылка на библиотеку объектов Microsoft Excel, то ни одна из констант, определенных в этой библиотеке, не будет доступна вашему коду. Вам придется самим устанавливать их значения.

Вы можете добавить следующие строки в начало вашего кода:

Const xlUp As Long = -4162
Const xlDown As Long = -4121

Они были единственными двумя константами, которые я мог видеть в вашем опубликованном коде, но, если у вас есть другие, их также следует добавить в ваш код.