AccessからVBAでCSVファイルエクスポート

AccessのデータをCSVでエクスポートして他システムで活用することはよくある作業です。

もちろん手動でテーブルを選択してエクスポートすることも可能ですが、通常ルーチン作業になることが多いため、ボタン一つで実行できると楽ですね。

今回はAccessからVBAでCSVファイルにエクスポートするコードはお気軽にコピペしてご利用ください。

個人の環境下で検証しておりますのでお使いの環境やデータによって正常に動作しない恐れもあります。サンプルはご自由にお使いいただいて結構ですが自己責任でご利用をお願いいたします。

AccessからCSV（テキストファイル）を出力する方法

テキストファイルへのエクスポート

コードサンプル

'------------------------------------------------------------
'   処理内容:データCSV出力（）
'   引数:なし
'   戻り値:
'　 更新：
'------------------------------------------------------------
Private Sub OutputCsv()
    Dim strFileName     As String
    
    On Error GoTo Err_Exit
    
    strFileName = "C:\work\test.csv"
    
    'エクスポート
    DoCmd.TransferText acExportDelim, , "Qry●●", strFileName, True
    
    MsgBox "出力しました。", vbOKOnly + vbInformation
    
    Exit Sub
    
Err_Exit:
    MsgBox Err.Number & ":" & Err.Description, vbOKOnly + vbCritical, "OutputCsv()"
End Sub

解説

事前にファイル名（strFileName）をフルパスで指定し、対象のクエリをTransferTextコマンドを使ってエクスポートしています。

DoCmd.TransferText acExportDelim, , テーブル名（クエリー名）, 出力ファイル名, True

※フォルダやファイル名を指定するプログラムは以下をご参照ください。

アズビーパートナーズ

AccessのVBAでファイルダイアログからフォルダを指定する方法 | アズビーパートナーズ Accessの処理において、「ユーザー指定のフォルダにファイルを出力する」というニーズがあります。 テキストボックスに直接入力やコピペによるフォルダ指定でも実現できま…

アズビーパートナーズ

AccessのVBAでファイルダイアログからファイルを指定する方法 | アズビーパートナーズ Accessの処理において、「EXCELやCSVファイルを指定する」というニーズがあります。 テキストボックスに直接入力やコピペによるファイル指定でも実現できますが、少々ユー…

エクスポートする際に文字コードを変更したい

出力後に連携するシステムによっては、文字コードを指定したい場合もあります。

その際は第７引数に文字コードを指定してください。

主要な文字コードは以下の通りです。

その他の文字コードはこちらで詳細をご確認ください。

DoCmd.TransferText acExportDelim, , "Qry●●", strFileName, True,,65001

第6引数をあけて、第７引数なので要注意！（第６引数は第２引数がacExportDelimの時は無視されます）

注意点

TransferTextコマンドはテキストファイルにエクスポートするコマンドなので出力先のファイル拡張子がテキストファイルと認識されない場合予期せぬエラーになります。

アズビーパートナーズ

3027：データベースまたはオブジェクトは読み取り専用なので、更新できません。 | アズビーパートナーズ Access実行時エラー3027 AccessのVBA実行時、「3027:データベースまたはオブジェクトは読み取り専用なので、更新できません。」のエラーが出て困ったことはありませんか？ …