Блог

Главная - Вопросы по программированию - Экспортировать частичный столбец из Access в Excel с помощью VBA

Экспортировать частичный столбец из Access в Excel с помощью VBA

#vba #ms-access

#vba #ms-access

Вопрос:

Я пытаюсь экспортировать частичный или некоторые столбцы из приведенного ниже кода.

Он экспортирует все из Access в Excel.

Я признателен за любое предложение. 

 Dim theFilePath As String
reportname = "X"
theFilePath = "C:Documents and Settings" amp; Environ("UserName") amp; "Desktop"
theFilePath = theFilePath amp; reportname amp; "_" amp; Format(Date, "yyyy-mm-dd") amp; ".xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, reportname, theFilePath, True
MsgBox "The Excel file is Downloaded in your Desktop"

Ответ №1:

Создайте запрос, который выбирает нужные столбцы из вашей таблицы / запроса (названные X в вашем коде) и выведите запрос, используя TransferSpreadsheet метод DoCmd объекта.

Например, вы можете создать запрос, подобный следующему, где YourField1...N указаны желаемые столбцы, а x — ваш набор данных (таблица / запрос):

 select x.YourField1, x.YourField2, x.YourField3 from x

Сохраните этот запрос в MS Access как MyQuery , затем измените reportname = "X" на reportname = "MyQuery"