Excel VBA　FileSystemObjectを活用してテキストファイルを効率的に作成する方法

この記事では、Excel VBAのFileSystemObjectオブジェクトを使用してテキストファイルを作成する具体的な手法をわかりやすく解説します。

FileSystemObjectオブジェクトを使ってテキストファイルを作成する方法を知りたいんですが、どうすればいいですか？

FileSystemObjectオブジェクトを使用すると、Excel VBAからテキストファイルの作成や編集が手軽にできるようになります。

CreateTextFileメソッドを使って新しいファイルを作り、その後ファイルにデータを書き込むことができますよ

FileSystemObjectオブジェクトとは

FileSystemObject（FSO）オブジェクトは、Microsoftが提供する、Windowsのファイルシステムにアクセスし、操作するための強力なツールです。

これを使用することで、Excel VBA（Visual Basic for Applications）からファイルやフォルダを作成、読み取り、書き込み、削除するなど、さまざまなファイルシステム操作を行うことができます。

FSOは、ファイルやフォルダの操作だけでなく、ファイルシステムの構造を調べたり、ファイルの存在をチェックしたり、ファイルやフォルダの属性（読み取り専用、隠しファイルなど）を設定する機能も提供します。これにより、VBAを使用している開発者は、コード内から直接、より複雑で高度なファイル操作を実行することが可能になります。

CreateTextFileメソッドの基本

CreateTextFileメソッドは、FSOオブジェクトのメソッドの一つで、新しいテキストファイルを作成します。このメソッドは、ファイルがまだ存在しない場合に新しいファイルを作成し、既にファイルが存在する場合には、新しい内容でファイルを上書きするオプションも提供しています。

CreateTextFileメソッドの基本的な構文は以下の通りです。

Set file = fso.CreateTextFile(filename, [overwrite], [unicode])

filename: 作成するファイルの名前（パスを含む）を指定します。
overwrite (オプショナル): ファイルが既に存在する場合に、それを上書きするかどうかを指定します。Trueで上書き、Falseで上書きしない（デフォルトはTrue）。
unicode (オプショナル): ファイルをUnicode形式で作成するかどうかを指定します。TrueでUnicode、FalseでANSI（デフォルトはFalse）。

このメソッドを使用すると、次のように簡単にテキストファイルを作成し、内容を書き込むことができます。

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim file As Object
Set file = fso.CreateTextFile("C:\example.txt", True)
file.WriteLine "この行は新しく作成されたテキストファイルに追加されます。"
file.Close

このコードは、Cドライブのルートに”example.txt”という名前のテキストファイルを作成し、そこに一行のテキストを追加しています。CreateTextFileメソッドを使用することで、プログラムから直接ファイルを操作する際の柔軟性とパワーを手に入れることができます。

サンプルプログラムによる解説

Excel VBAを使用して、FileSystemObject（FSO）オブジェクトを利用し、テキストファイルを作成し、そのファイルにデータを書き込むプロセスを、サンプルプログラムを通じて解説します。

Sub CreateAndWriteToFile()
    Dim fso As Object
    Dim file As Object
    Dim filePath As String
    
    ' FileSystemObjectのインスタンスを作成
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' ファイルのパスを指定
    filePath = "C:\sample.txt"
    
    ' テキストファイルを作成（既に存在する場合は上書き）
    Set file = fso.CreateTextFile(filePath, True)
    
    ' ファイルにテキストを書き込む
    file.WriteLine "Hello, World!"
    
    ' ファイルを閉じる
    file.Close
    
    ' リソースを解放
    Set file = Nothing
    Set fso = Nothing
    
    MsgBox filePath & " にテキストを書き込みました。", vbInformation, "完了"
End Sub

FileSystemObjectのインスタンスを作成: 最初にCreateObject関数を用いてFileSystemObjectのインスタンスを生成します。これにより、ファイルやフォルダを操作するためのメソッドにアクセスできるようになります。
ファイルパスの指定: 次に、作成するテキストファイルの完全なパスをfilePath変数に格納します。この例では、Cドライブのルートディレクトリにsample.txtという名前でファイルを作成します。
テキストファイルの作成: CreateTextFileメソッドを使ってテキストファイルを作成します。このメソッドの第二引数にTrueを指定することで、ファイルが既に存在する場合には上書きします。
テキストの書き込み: WriteLineメソッドを使用してファイルに文字列を書き込みます。このメソッドは、指定された文字列をファイルに追加し、改行します。
ファイルの閉鎖とリソースの解放: Closeメソッドでファイルを閉じた後、使用したオブジェクトをNothingに設定してリソースを解放します。
完了メッセージの表示: 最後に、MsgBox関数を使用して、ファイルにデータが書き込まれたことをユーザーに通知します。