Экспортировать частичный столбец из Access в Excel, используя VBA - PullRequest
Новая
       14

Экспортировать частичный столбец из Access в Excel, используя VBA

0 голосов
/ 01 апреля 2019

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

Экспортирует все из Access в Excel.

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

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

1 Ответ

0 голосов
/ 02 апреля 2019

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

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

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

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

...