Excelへのアクセスで1つのレコードセット内のデータをエクスポートしたいとします。AccessからExcelにエクスポート
私はDoCmd.TransferSpreadsheetコマンドを知っていますが、それは格納されたクエリでのみ動作し、私の場合は実行時にフィルタリングされたレコードセットです。
私が欲しいことをするためにいくつかのコードを試しました。データをエクスポートできますが、レコードセットから列名を取得できません。
コマンドに関する提案や、これらの列名をレコードセットから取得する方法はありますか？
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
あなたが前に転送スプレッドシート
Dim myQuery As QueryDef
Set myQuery = CurrentDb.QueryDefs("SampleQuery")
myQuery.SQL = "SELECT * FROM myTable WHERE something"
DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9, "SampleQuery", "c:\test.xls"
を呼び出すに保存されたクエリを変更することができますが、ADOレコードセットとまったく同じことを行うことができ、彼らは "を持っています名前のプロパティも同様です。 –