AccessVBAでクエリのデータをデスクトップにCSVで出力する
クエリをCSVで出力するのはよく使うので、備忘録。
保存先を指定するのが一番だけど、めんどくさい時はデスクトップにポイッと出るだけでもいいかと。
If MsgBox("クエリをCSVで出力します。" + vbCrLf + vbCrLf + "実行しますか?", vbOKCancel + vbQuestion, "CSV出力実行確認") = vbOK Then
'保存先(デスクトップ)とファイル名を指定してPathに代入
Dim Path As String
Path = CreateObject("WScript.Shell").Specialfolders("Desktop") & "¥" & "クエリデータ" & Format(Date, "yyyymmdd") & ".csv"
'クエリを保存先(デスクトップ)に保存して、確認メッセージを表示する
DoCmd.TransferText acExportDelim, , "クエリ", Path, True, ""
MsgBox "「クエリ" & Format(Date, "yyyymmdd") & ".csv」のCSV出力が完了しました。" & vbCrLf & vbCrLf & "以下の場所にファイルが作成されているか確認してください。" & vbCrLf & vbCrLf & Path, vbInformation
Else
MsgBox "操作をキャンセルしました。"
End If