Accessで外部テキストファイルへ書き込み

質問

Access2010にて、クエリをテキストファイルでエクスポートするように致しました。

エクスポートされたテキストファイルの先頭行に１～３行程度の文章を追記したいです。

その場合、VBAでどのように記述すれば良いのでしょうか。

ご回答の程、宜しくお願い致します。

回答No.1

piroin654 · ベストアンサー

http://gallery.technet.microsoft.com/scriptcenter/8229fa0d-f0d3-44be-a4a7-3ee3f249bcfd

上記にほぼ必要なコードが書かれています。
一部を手直しすると、

Const ForReading = 1
Const ForWriting = 2
Dim objFSO As Object
Dim objFile As Object
Dim strContents As String
Dim strFirstLine As String
Dim strNewContents As String
Dim strPath As String

strPath = "C:\Scripts\Test.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strPath, ForReading)

strContents = objFile.ReadAll
objFile.Close

strFirstLine = "This is the new first line in the text file."
strNewContents = strFirstLine & vbCrLf & strContents

Set objFile = objFSO.OpenTextFile(strPath, ForWriting)
objFile.WriteLine strNewContents

objFile.Close

これで、先頭行に
「This is the new first line in the text file.」
という文字列が挿入されます。

＞先頭行に１～３行程度の文章を追記

行を変えるときは、vbCrLf　を挟めば改行されます。