Экспорт из доступа в Excel

Question

Я хочу экспортировать некоторые данные в одном наборе записей в Access to Excel.

Я знаю команду DoCmd.TransferSpreadsheet, но она работает только с сохраненными запросами, а в моем случае это набор записей, отфильтрованных во время выполнения.

Я попробовал несколько кодов, чтобы сделать то, что я хочу.Я могу экспортировать данные, но не могу получить имя столбца из набора записей.

Любые предложения по командам или как получить эти имена столбцов из набора записей?

Answer 1

Наборы записей DAO имеют свойство name, которое вы можете использовать.

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM ARTIKELGRUPPE")
Debug.Print rs.Fields(0).Name
Debug.Print rs.Fields(1).Name

Вывод для моей таблицы:

id
Name

Answer 2

Вы можете изменить сохраненный запрос до вызова электронной таблицы перевода

Dim myQuery As QueryDef
Set myQuery = CurrentDb.QueryDefs("SampleQuery")
myQuery.SQL = "SELECT * FROM myTable WHERE something"
DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9, "SampleQuery", "c:\test.xls"