テーブルのExcelエクスポート

AccessVBAでテーブルのExcelエクスポートを行います。
DoCmd.TransferSpreadsheetメソッドを使います。

以下はカレントプロジェクト内のT_サンプルテーブルを
カレントプロジェクトのパスと同じところにExcelエクスポートするコードです。

Sub ProcTransferSpreadsheet()
    Dim strPath As String
    Dim strTblName As String
    
    strPath = CurrentProject.Path & "\"
    strTblName = "T_サンプル"
            
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, strTblName, _
            strPath & strTblName, True
End Sub

第1引数はacExpor(エクスポート)とします。

第2引数には出力するExcelのバージョンの指定をします。
ここでは、acSpreadsheetTypeExcel12Xmlとしています。
これはExcel2010のXML形式になります。

第3引数はエクスポートを行うテーブル名、

第4引数はエクスポート先のフルパス(拡張子含まず)を入れます。

第5引数は列名の出力有無で、Trueとした場合は先頭行に列名を出力します。