【VBA】ファイルに書き込む(Write) | デイレコ DairyRecord-blog

TextStreamオブジェクトのWriteメソッドについてです。

Writeメソッド

指定した文字をファイルに書き込みます。
※文字列を複数指定した場合、各文字列が区切られずに続けて書き込まれます。

引　数	必須 / 省略可	詳　細
文字 (string)	必須	書き込む文字を指定。

まずFileSystemObjectをセットして、FileSystemObjectのOpenTextFileメソッドで上書きモードに設定してファイルを開きTextStreamオブジェクトをセットします。あとはTextStreamオブジェクトのWriteメソッドで書き込みます。

Sub test()

'変数

Dim fso As Object, ts As Object

'FileSystemObjectをセット

Set fso = CreateObject("Scripting.FileSystemObject")

'TextStreamオブジェクトをセット

Set ts = fso.OpenTextFile("D:\sample\test.txt", ForWriting)

'TextStreamオブジェクトのWriteメソッドで上書き

ts.Write ("Hello")

ts.Write ("こんにちわ")

ts.Write (12345)

'ファイルを閉じる

ts.Close

End Sub

【結果】

改行はされず続けて書き込まれます。

※ちなみに改行して聞き込む場合は、TextStreamオブジェクトのWriteLineメソッドを使用します。