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

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

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

Sub ProcTransferText()
    Dim strPath As String
    Dim strTblName As String
    
    strPath = CurrentProject.Path & "\"
    strTblName = "T_サンプル"
    
    DoCmd.TransferText acExportDelim, , _
            strTblName, strPath & strTblName & ".csv", True

End Sub

第1引数はacExportDelim(可変長テキストの出力)とします。

第2引数(省略可)は定義名を入れます。

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

第4引数はエクスポート先のフルパスを入れます。

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