vbaでテキストファイルを作成する（最も簡単な1行のtxtを作る）

こんてんつ

テキストファイルを作成して1行だけ文字を入れるVBAを紹介する。

コード

下記のコードを実行すると、実行したEXCELがあるフォルダの中にtest.txtというテキストファイルが出来る。さらに、その中身には"Hello!"が書き込まれている。

Sub Test()

Dim fsoOBJ As FileSystemObject
Set fsoOBJ = New FileSystemObject

fsoOBJ.CreateTextFile(ThisWorkbook.Path & "\" & "test.txt").WriteLine ("Hello!")

End Sub

補足（注意）

初めてFileSystemObjectを使った場合、「コンパイルエラー: ユーザ定義型は定義されていません。」と出てくるかもしれない。そんな時は次の作業で解決される。

1. ツール - 参照設定
2. Microsoft Scripting Rutime にチェックを入れると良い。