AccessでテーブルをCSVファイル形式で出力する

はじめに

AccessでテーブルのデータをCSVファイル形式で出力(Export)する必要が出てきたため、テストでDB及びテーブルを作成し、テストデータをCSVファイルでExportするソースコードを実装しました。

元データ

元データとして「nogitable」というデーブルに9件レコードを追加しました・

実装したソースコード

実装したソースコードを下に示します。

Private Sub コマンド22_Click()
    'ファイルシステムオブジェクトのインスタンス作成
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    'ファイル存在フラグの変数定義
    Dim file_exsist_flag
    'ファイル名の変数定義
    Dim file_name As String
    file_name = "C:\Users\takao.hattori\OneDrive - Accenture\20240304\nogitable" & Format(Now(), "YYYYMMDD") & ".csv"

    'メッセージボックスで「OK」ボタンを押下したときの処理
    If vbOK = MsgBox("csvファイルを出力します。" & vbCrLf & "同名のファイルは上書きされますのでご注意ください。", vbInformation + vbOKCancel, "csv出力") Then
        file_exsist_flag = fso.FileExists(file_name)
        'ファイルが存在すればCSVファイルを削除する
        If file_exsist_flag = True Then
        
            fso.DeleteFile (file_name)
        End If
        ' CSVファイルを出力する
        DoCmd.TransferText acExportDelim, , "nogitable", file_name, False
        '処理完了メッセージボックスを表示
        MsgBox "csvファイルを出力しました。", vbInformation + vbOKOnly, "出力完了"

    End If

End Sub

出力したCSVファイル

出力したCSVファイルは下記の画像です。

最後に

結構な頻度で使用が想定されるので作成しました。