VBAファイルを開き,読取,書込,追加書込(OpenAsTextStream)

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

OpenAsTextStreamメソッド

指定したファイルを開き、読取、書込、追加書込に使用できるTextStreamオブジェクトを返します。

FileObject.OpenAsTextStream([iomode,[format]])

[ ]は省略可

引　数	必須 / 省略可	詳　細
入出力モード (iomode)	省略可	入出力のモードを指定。・読込み：ForReading ・書込み(上書)：ForWriting ・書込み(追記)：ForAppending
文字コード (format)	省略可	開くファイルの文字コードを指定。・省略 → ASCII形式でファイルが開きます。

FileオブジェクトのOpenAsTextStreamメソッドを使用するには、FileSystemObjectのGetFileメソッドでFileオブジェクトが返るので、FileオブジェクトのOpenAsTextStreamメソッドで入出力モードを上書き(ForWriting)にしてファイルを開くとTextStreamオブジェクトが返るので、TextStreamオブジェクトのWriteメソッドで書き込みます。

Sub test()

'変数

Dim fso As Object, ts As Object

Dim f As File

'FileSystemObjectをセット

Set fso = CreateObject("Scripting.FileSystemObject")

'FileSystemObjectのGetFileメソッドでファイルパスを指定してFileオブジェクトをセット

Set f = fso.GetFile("D:\sample\test.txt")

'FileブジェクトのOpenAsTextStreamで書込に設定してTextStreamオブジェクトをセット

Set ts = f.OpenAsTextStream(ForWriting)

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

ts.Write "Hello"

'TextStreamオブジェクトのCloseソッドでファイルを閉じる

ts.Close

End Sub

もしくは下記みたいな短縮する書き方もあります。

Sub test2()

'Objectを宣言

Dim fso As Object

'FileSystemObjectをセット

Set fso = CreateObject("Scripting.FileSystemObject")

'ファイルに書き込む

fso.GetFile("D:\sample\test.txt").OpenAsTextStream(2).Write "hello": Close

End Sub

【結果】

test.txt(テキストファイル)に上書きされます。