VBA テキストファイル(.txt)の作成




FileSystemObject.CreateTextFile(FileName[, Overwrite[, Unicode)

FileSystemObjectオブジェクトのCreateTextFileメソッドを使ったテキストファイル(.txt)の作り方です。


名前 説明 備考
filename ファイル名 string 必須
overwrite 上書き可否 True or
False
省略可
(初期値:False)
unicode ASCIIファイル or
Unicodeファイル
True or
False
省略可
(初期値:True_ASCII)
引数一覧

引数filenameはファイルパスを含めて指定出来ます。
指定しなかった場合はアクティブなフォルダにファイルが作成されます。
存在しないパスを指定した場合は「パスが見つかりません」というエラーになります。


サンプルコード
Sub createTxt()
 Dim fso As Object
 
 Set fso = CreateObject("Scripting.FileSystemObject")
  fso.createtextfile ("D:\test.txt")
 
 Set fso = Nothing
End Sub


このサンプルでのSet fso = Nothingで参照を解放するメリットはあまりないですが(End Subの直前なので)、通常参照し続けておくとメモリを消費するという噂もあるので 使用が終わったobjectは= Nothingにするのが良いらしいです。