Access(テーブル、クエリ)をCSVファイルとして出力する方法

VBAでCSVファイルを作成して出力する方法

Sub Exp_CSV()
Dim dbs As DAO.Database
Dim rst As Dim rst As DAO.Recordset
Dim lngFileNum As Long
Dim strOutPut As String
lngFileNum = FreeFile()
Open "C:\work\expdata.csv" For Output As #lngFileNum
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("M_DATA")
With rst
strOutPut = ""
Do Until .EOF
strOutPut = strOutPut & !コード & "," & !品名 & "," & _
!備考 & "," & !数量 & "," & !仕入先 & vbCrLf
.MoveNext
Loop
.Close
End With
Print #lngFileNum, strOutPut
Close #lngFileNum
End Sub

【重要】「DoCmd.TransferText」を使えば上記処理が１行で完了する！！！

DoCmd.TransferText acExportDelim, , "M_DATA", "C:\work\expdata.csv", True

【クアドラモニター 22インチ液晶x4台セット】 DELL デル 【第三世代Core i7-3770 8GBメモリ SSD256GB スペックカスタマイズ】 Windows10 Windows7 【USB3.0 光学ドライブ 正規版Office付き 新品キーボード&マウス標準搭載】 中古パソコン 中古デスクトップPCFX向け

中古ノートパソコン ノートパソコン【3年保証】【送料無料】【セットアップ済】中古 パソコン ノートPC Windows10 Office付き Core i5 Office付 メモリ4G HDD250GB DVDROM 15.6インチ【法人】【あす楽対応】【ハイスペックノート】