
TextStreamオブジェクトのWriteメソッドについてです。
Writeメソッド
概要
指定した文字をファイルに書き込みます。
※文字列を複数指定した場合、各文字列が区切られずに続けて書き込まれます。
構文
TextStreamObject.Write (string)
Writeメソッドの引数
引 数 | 必須 / 省略可 | 詳 細 |
文字 | 必須 | 書き込む文字を指定。 |
VBAサンプル
まずFileSystemObjectをセットして、FileSystemObjectのOpenTextFileメソッドで上書きモードに設定してファイルを開きTextStreamオブジェクトをセットします。あとはTextStreamオブジェクトのWriteメソッドで書き込みます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 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メソッドを使用します。