Какой «лучший» способ прочитать (просто прочитать) файл Excel из приложения Access 2007? Я только хочу перебрать строки и поместить данные в таблицу Access.
Мне не нужен импорт вручную (диалоговое окно «Получить внешние данные»), а только с помощью VBA. Пользователь получает форму с кнопкой «Обзор», а затем указывает на файл Excel с определенным содержимым / форматом. После этого код VBA считывает данные и помещает их в базу данных Access.
Вы можете попробовать метод DoCmd.TransferSpreadsheet.
DoCmd.TransferSpreadsheet acImport, , "from_excel","C:\Access\demo.xls", True
Это импортирует данные электронной таблицы в таблицу с именем from_excel и предполагает, что первая строка электронной таблицы содержит имена полей. См. Справку Access для TransferSpreadsheet или в Интернете здесь, Больше подробностей.
Если вы хотите прочитать всю электронную таблицу, вы можете импортировать электронную таблицу Excel прямо в Access. См. здесь или здесь.
Вы также можете выбрать ссылку на электронную таблицу Excel вместо ее импорта. Таким образом, любые изменения в электронной таблице Excel будут отражены в связанной таблице. Однако вы не сможете вносить изменения из Access.
Третий вариант - написать код VBA в Access, чтобы открыть набор записей и прочитать электронную таблицу. См. Ответы KeithG в эту ветку. Вы можете сделать что-то вроде этого, чтобы открыть электронную таблицу в VBA:
Dim xl As Excel.Application
Dim xlsht As Excel.Worksheet
Dim xlWrkBk As Excel.Workbook
Set xl = CreateObject("Excel.Application")
Set xlWrkBk = GetObject("H:/ggg.xls")
Set xlsht = xlWrkBk.Worksheets(1)
Попробуйте что-то вроде этого:
Dim excelApp As Excel.Application
Dim workbook As Excel.Workbook
Dim worksheet As Excel.Worksheet
Set excelApp = CreateObject("Excel.application")
Set workbook = excelApp.Open("C:\someFileName.xls")
Set worksheet = workbook.Worksheets(1)
Затем прокрутите строки и столбцы, извлеките данные из ячеек и вставьте их в базу данных. (Вы можете использовать метод worksheet.cells.) Попробуйте поискать в Google образцы кода.
