TextStreamオブジェクトのWriteLineメソッドについてです。
WriteLineメソッド
概要
1行（指定文字と改行文字）書き込みます。
構文
TextStreamObject.WriteLine ([string])
[]は省略可。
WriteLineメソッドの引数
| 引 数 | 必須 / 省略可 | 詳 細 |
文字 | 省略可 | 書き込む文字を指定。 |
VBAサンプル
引数を省略した場合
まずFileSystemObjectをセットして、FileSystemObjectのOpenTextFileメソッドで上書きモードに設定して指定したファイルを開きTextStreamオブジェクトをセットします。あとはTextStreamオブジェクトのWriteLineメソッドで引数なしにすると改行文字だけが書き込まれます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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オブジェクトのWriteLineメソッド ts.WriteLine 'ファイルを閉じる ts.Close End Sub |
【結果】
引数を省略した場合は改行文字のみが書き込まれます。（メモ帳では改行がわからないので、Sakuraエディタを使用しています）
引数を省略しない場合
For～Nextの10回の反復処理でTextStreamオブジェクトのWriteLineメソッドで変数nを書き込む以外は先程と一緒です。指定したファイルに1行（変数nと改行文字）書き込み、次の行に移動して再度書き込みを繰り返します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Sub test2() '変数 Dim fso As Object, ts As Object Dim n As Integer 'FileSystemObjectをセット Set fso = CreateObject("Scripting.FileSystemObject") 'TextStreamオブジェクトをセット Set ts = fso.OpenTextFile("D:\sample\test.txt", ForWriting) 'For～Nextで10回反復処理 For n = 1 To 10 'TextStreamオブジェクトのWriteLineメソッドで変数nを書き込む ts.WriteLine (n) Next 'ファイルを閉じる ts.Close End Sub |
【結果】
1行（変数nと改行文字）ごとに書き込まれます（メモ帳では改行がわからないので、Sakuraエディタを使用しています）
