從 Access 導出到 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

Output 我的桌子：

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"