Доступ к VBA: получить последний ряд листа Excel

Question

В Access VBA я получаю некоторые данные из файла Excel для перемещения в таблицу Access.

Я получаю

Ошибка приложения или объекта

в этой строке кода:

For Each c1 In mSheet.Range(mSheet.Range("F4"), mSheet.Range("F4").End(xlDown)).Cells

Проблема, безусловно, связана с .End(xlDown): я попытался удалить .End(xlDown), и она работает.

В качестве альтернативы я использовал этот другой код, но ничего не изменилось:

Dim mRow As Integer
mRow = mSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

В этом случае я получаю

Ошибка 1004: невозможно получить свойство SpecialCells диапазона класс.

Answer 1

Если у вас нет ссылки на библиотеку объектов Excel, xlDown не имеет значения. Добавить:

Const xlDown as Long = -4121

к вашему коду. Хотя, как правило, лучше работать снизу листа.