VBA Accessモジュール（テキストファイルへの書き込み）

AccessでのVBA（モジュール）のサンプルです。serial というテーブルのserialnoやbangouというフィールドの内容をserail.txt というファイルに書き込みます。







Sub writedown()

Dim Db As Database, Tbl As Recordset
Dim str_message As String


Set Db = DBEngine.Workspaces(0).Databases(0)

Set Tbl = Db.OpenRecordset("serial", DB_OPEN_TABLE)

Do Until Tbl.EOF

    str_message = str_message & Tbl!serialno & "," & Tbl![bangou] & vbCrLf
 
 
Tbl.MoveNext

Loop

MsgBox str_message

'ファイルに書き込みをするスクリプト

strFileName = "C:\mdb\serial.txt"
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objfile = objFileSystem.CreateTextFile(strFileName)
objfile.Write (str_message)
objfile.Close

End Sub