Помогите! Возможно ли такое вообще?
Мне необходимо из аксесс выбрать файл эксель, в котором находятся нужные данные. Эти данные расположены на известном листе, но неизвестно, сколько там задействовано строк. Поэтому, прежде чем экспортировать нужно узнать, в каком диапазоне располагаются данные.

Я написала следующий код в access:

Dim app As Object
Set app = CreateObject("Excel.Application")

Dim sAddress As String
Dim objCloseBook As Object
Dim PathAndName As String

PathAndName = app.Application.GetOpenFilename("Excel files(*.xls*),*.xls*", 2, "Выбор файла, содержащего данные")
Set objCloseBook = GetObject(PathAndName)

Dim iLastRow As Long

'в следующей строке происходит ошибка!!!!
iLastRow = objCloseBook.Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row

sAddress = "A1:G" & iLastRow 'или одна ячейка - "A1"

DoCmd.RunSQL "DELETE * FROM Таблица"
DoCmd.TransferSpreadsheet acImport, , "Таблица", File, True, , sAddress

app.Workbooks.Close


Происходит ошибка в момент поиска последней ячейки на листе книги эксель. Помогите исправить это, пожалуйста, или подскажите, как это можно сделать по-другому...