【Excel】VBAでテキストファイルを読み書きする!ExcelマクロのOpen文によるファイルIO基本

Excel VBAを使ってテキストファイルを操作したい場面は多いでしょう。例えば、外部システムから出力されたデータをExcelに取り込んだり、ExcelのデータをCSV形式で出力したりする際に必要となります。しかし、Open文を使ったファイルIOの基本的な書き方や、読み込み・書き込みのモードが理解できず、つまずく方もいるかもしれません。この記事では、Excel VBAのOpen文を使ったテキストファイルの読み書きの基本を解説します。Open文の基本的な使い方から、テキストファイルの読み込み、書き込み、追記の方法まで、具体的なコード例とともに丁寧に説明します。

この記事を読むことで、VBAでテキストファイルを自在に扱えるようになり、データ連携の幅が大きく広がります。ファイルIOの基本をマスターし、Excel業務の自動化をさらに進めましょう。

Open文の基本構造とファイルモード

VBAでテキストファイルを操作する上で、Open文は中心的な役割を果たします。Open文は、ファイルを開き、読み込みや書き込みの準備をするための命令です。この文を使うことで、指定したテキストファイルとVBAコードの間でデータのやり取りが可能になります。

Open文の基本的な構文は以下の通りです。`ファイル番号`は、FreeFile関数で取得した、現在開いているファイルと重複しない番号を指定します。`ファイル名`には、操作したいテキストファイルのパスを含めた名前を指定します。`モード`は、ファイルを開く目的(読み込み、書き込み、追記)に応じて設定します。

ファイルモードには主に以下の3種類があります。

1. Inputモード
テキストファイルを読み込むために開きます。ファイルが存在しない場合はエラーになります。既存のファイルの内容はそのまま利用できます。

2. Outputモード
テキストファイルに書き込むために開きます。ファイルが存在しない場合は新規作成されます。ファイルが既に存在する場合は、その内容はすべて消去され、最初から書き込まれます。

3. Appendモード
テキストファイルに追記するために開きます。ファイルが存在しない場合は新規作成されます。ファイルが既に存在する場合は、ファイルの末尾に新しい内容が追加されます。既存の内容は保持されます。

これらのモードを適切に使い分けることが、ファイルIOの基本となります。

FreeFile関数によるファイル番号の取得

VBAでは、同時に複数のファイルを操作することがあります。どのファイルがどのファイル番号に対応しているかを管理するために、`FreeFile`関数を使用します。`FreeFile`関数は、現在開いているファイルと重複しない、空いているファイル番号を返します。この返された番号を、Open文の`ファイル番号`として指定します。

例えば、`lngFileNum = FreeFile`のように記述することで、利用可能なファイル番号を取得できます。この番号は、そのVBAコードの実行中にのみ有効であり、他のファイル操作との衝突を防ぐために不可欠です。

テキストファイルの読み込み手順

テキストファイルを読み込むには、まず`Input`モードでファイルを開き、その後`Line Input #`文や`Input #`文を使ってファイルの内容を一行ずつ、または指定した変数に読み込みます。最後に`Close #`文でファイルを閉じます。エラー処理も考慮することが重要です。

1. ファイル番号の取得
   FreeFile関数を使用して、利用可能なファイル番号を取得します。
2. Inputモードでファイルを開く
   Open文とInputモードを指定し、読み込みたいテキストファイルを開きます。ファイルパスは正確に指定してください。
3. ファイル内容の読み込み
   Line Input #文を使用して、ファイルから一行ずつ文字列として読み込み、変数に格納します。Do WhileループとEOF関数(End Of File)を組み合わせることで、ファイルの終端まで繰り返し読み込むことができます。
4. ファイルを閉じる
   Close #文を使用して、開いたファイルを閉じます。これにより、リソースが解放され、変更が保存されます。

以下に、テキストファイルの内容を一行ずつ読み込み、MsgBoxで表示するサンプルコードを示します。


Sub ReadTextFile()
Dim lngFileNum As Integer
Dim strLine As String
Dim strFilePath As String

' 読み込むテキストファイルのパスを指定
strFilePath = "C:\Temp\Sample.txt"

' ファイルが存在するか確認 (任意)
If Dir(strFilePath) = "" Then
MsgBox "指定されたファイルが見つかりません。" & vbCrLf & strFilePath, vbExclamation
Exit Sub
End If

On Error GoTo ErrorHandler ' エラーハンドリングの設定

' 使用可能なファイル番号を取得
lngFileNum = FreeFile

' Inputモードでファイルを開く
Open strFilePath For Input As #lngFileNum

' ファイルの終端まで一行ずつ読み込む
Do While Not EOF(lngFileNum)
Line Input #lngFileNum, strLine
MsgBox "読み込んだ内容: " & strLine ' 読み込んだ内容をMsgBoxで表示
' 必要に応じて、読み込んだ文字列を変数や配列に格納する処理を追加
Loop

' ファイルを閉じる
Close #lngFileNum

MsgBox "ファイルの読み込みが完了しました。", vbInformation
Exit Sub

ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
If lngFileNum <> 0 Then Close #lngFileNum ' エラー発生時もファイルを閉じる
End Sub


`Input #`文も同様に使用できますが、こちらはカンマ区切りなどの構造化されたデータを読み込む際に、指定した変数数だけ読み込むのに適しています。`Line Input #`は、行全体を一つの文字列として読み込むため、一般的なテキストファイルの読み込みによく使われます。

テキストファイルへの書き込み手順

テキストファイルにデータを書き込むには、`Output`モードでファイルを開き、`Print #`文や`Write #`文を使用してデータを書き込みます。`Output`モードは、ファイルが存在しない場合は新規作成し、存在する場合は内容を上書きします。書き込み後もファイルを閉じる必要があります。

1. ファイル番号の取得
   FreeFile関数で利用可能なファイル番号を取得します。
2. Outputモードでファイルを開く
   Open文とOutputモードを指定し、書き込みたいテキストファイルを開きます。ファイルが存在しない場合は新規作成されます。
3. ファイルへの書き込み
   Print #文を使用して、指定した文字列をファイルに書き込みます。Print #文は、文字列の末尾に改行コードを追加します。Write #文は、文字列をダブルクォーテーションで囲み、カンマで区切って書き込むため、後で読み込みやすい形式になります。
4. ファイルを閉じる
   Close #文でファイルを閉じ、変更を保存します。

以下は、ExcelシートのA列のデータをテキストファイルに書き出すサンプルコードです。


Sub WriteTextFile()
Dim lngFileNum As Integer
Dim strLine As String
Dim strFilePath As String
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range

' 書き込み先のテキストファイルのパスを指定
strFilePath = "C:\Temp\Output.txt"
Set ws = ThisWorkbook.Sheets("Sheet1") ' 書き込み元シートを指定

On Error GoTo ErrorHandler

' 使用可能なファイル番号を取得
lngFileNum = FreeFile

' Outputモードでファイルを開く (既存ファイルは上書き)
Open strFilePath For Output As #lngFileNum

' シートのA列のセルをループ処理
Set rng = ws.Range("A1", ws.Cells(Rows.Count, "A").End(xlUp))
For Each cell In rng
' Print #文でファイルに書き込む (改行コード付き)
Print #lngFileNum, cell.Value
Next cell

' ファイルを閉じる
Close #lngFileNum

MsgBox "ファイルの書き込みが完了しました。" & vbCrLf & strFilePath, vbInformation
Exit Sub

ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
If lngFileNum <> 0 Then Close #lngFileNum
End Sub


`Print #`文は、Excelシートのセルに値を書き込む感覚に似ています。各`cell.Value`が一行としてテキストファイルに書き込まれます。

テキストファイルへの追記手順

既存のテキストファイルの内容を消去せずに、末尾に新しいデータを追加したい場合は、`Append`モードを使用します。これは、ログファイルの記録や、複数回にわたるデータ追加処理などで役立ちます。

1. ファイル番号の取得
   FreeFile関数で利用可能なファイル番号を取得します。
2. Appendモードでファイルを開く
   Open文とAppendモードを指定し、追記したいテキストファイルを開きます。ファイルが存在しない場合は新規作成されます。
3. ファイルへの追記
   Print #文やWrite #文を使用して、既存の内容の末尾に新しいデータを書き込みます。
4. ファイルを閉じる
   Close #文でファイルを閉じます。

以下は、Excelシートのデータを既存のテキストファイルに追記するサンプルコードです。


Sub AppendTextFile()
Dim lngFileNum As Integer
Dim strLine As String
Dim strFilePath As String
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range

' 追記先のテキストファイルのパスを指定
strFilePath = "C:\Temp\AppendLog.txt"
Set ws = ThisWorkbook.Sheets("Sheet2") ' 追記元シートを指定

On Error GoTo ErrorHandler

' 使用可能なファイル番号を取得
lngFileNum = FreeFile

' Appendモードでファイルを開く (既存ファイルに追記)
Open strFilePath For Append As #lngFileNum

' シートのB列のセルをループ処理
Set rng = ws.Range("B1", ws.Cells(Rows.Count, "B").End(xlUp))
For Each cell In rng
' Print #文でファイルに追記する
Print #lngFileNum, cell.Value
Next cell

' ファイルを閉じる
Close #lngFileNum

MsgBox "ファイルへの追記が完了しました。" & vbCrLf & strFilePath, vbInformation
Exit Sub

ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
If lngFileNum <> 0 Then Close #lngFileNum
End Sub


このコードを実行すると、`AppendLog.txt`ファイルの末尾に`Sheet2`のB列の値が追加されます。ファイルがまだ存在しない場合は、新規作成されてから追記されます。

セキュリティ警告への対処法

VBAマクロを使用してファイル操作を行う際、特に外部から取得したブックを開いたり、ファイルパスが指定されていたりする場合に、セキュリティ警告が表示されることがあります。これは、悪意のあるマクロによる不正なファイルアクセスを防ぐためのExcelの機能です。

警告が表示された場合、マクロの実行が一時停止されるか、ファイル操作がブロックされる可能性があります。これを回避するには、いくつかの方法があります。

1. 信頼できる場所への保存

マクロを含むExcelブックを、Excelの「信頼できる場所」に登録されたフォルダに保存します。これにより、そのフォルダ内のブックのマクロは、セキュリティ警告なしに実行できるようになります。

1. ファイルタブをクリックします。
2. オプションをクリックします。
3. トラストセンターをクリックし、トラストセンターの設定ボタンをクリックします。
4. 信頼できる場所を選択し、新しい場所の追加をクリックします。
5. 参照ボタンをクリックして、ブックが保存されているフォルダを選択し、OKをクリックします。
6. 必要に応じて「サブフォルダーも信頼する」にチェックを入れ、OKをクリックして設定を完了します。

2. マクロ設定の変更 (非推奨)

トラストセンターの設定で、マクロの設定を変更し、すべてのマクロを有効にする(または署名付きマクロのみ有効にする)ことも可能ですが、これはセキュリティリスクを高めるため、一般的には推奨されません。特に、インターネットからダウンロードしたファイルや、信頼できない送信元からのファイルに対しては、この設定は避けるべきです。

3. VBAプロジェクトのデジタル署名

開発者自身がマクロにデジタル署名を行うことで、マクロの提供元が信頼できることを示し、ユーザーに実行を許可してもらう方法もあります。これは、配布するマクロ付きファイルに対して有効な手段です。

通常、個人が自分のPCでファイル操作を行う場合は、信頼できる場所への登録が最も手軽で安全な方法です。

よくある失敗パターンと回避策

VBAでのファイルIO操作において、初心者が陥りやすい失敗パターンがいくつか存在します。これらのパターンとその回避策を理解しておくことで、スムーズな開発が可能になります。

ファイルが見つからないエラー (Error 53)

原因: 指定したファイルパスが間違っている、ファイルが存在しない、またはアクセス権がない場合に発生します。大文字・小文字の区別、パス区切り文字(`\`)の誤り、ファイル名のタイプミスなどが原因として考えられます。

回避策:

1. ファイルパスの確認: 指定したファイルパスが正確であることを、エクスプローラーなどで手動で確認します。
2. 相対パスと絶対パス: コードの実行場所を考慮し、必要に応じて絶対パス(例: `C:\Folder\File.txt`)または相対パス(例: `MyFolder\File.txt`)を適切に使用します。
3. Dir関数による存在確認: Open文の前に`If Dir(strFilePath) <> “” Then`のようにDir関数でファイルの存在を確認し、存在しない場合は処理を中断するか、エラーメッセージを表示します。

ファイルがロックされているエラー

原因: 他のアプリケーションや同じVBAコードの別のインスタンスが、そのファイルを既に開いて使用している場合に発生します。特に、ファイルを開いたままClose文を実行せずにマクロを終了した場合などに起こりやすいです。

回避策:

1. Close文の徹底: ファイル操作が終わったら、必ず`Close #ファイル番号`を実行します。エラーハンドリング内でもClose文を実行するようにします。
2. 一時的な待機とリトライ: 短時間待機してから再度アクセスを試みるコードを記述します。ただし、無限ループにならないよう注意が必要です。
3. 外部プロセスの確認: 該当ファイルを開いている可能性のある他のアプリケーションやプロセスを特定し、終了させます。

文字化けが発生する

原因: テキストファイルのエンコーディング(文字コード)が、VBAがデフォルトで想定しているエンコーディング(通常はANSIまたはUTF-8)と異なる場合に発生します。例えば、Shift_JISで保存されたファイルをUTF-8として読み込もうとしたり、その逆の場合に文字化けします。

回避策:

1. ADODB.Streamオブジェクトの使用: VBA標準のOpen文ではエンコーディングの指定が限定的です。より柔軟なエンコーディング指定を行いたい場合は、`ADODB.Stream`オブジェクトを使用します。これにより、UTF-8、Unicodeなどの様々なエンコーディングでファイルを読み書きできます。
2. テキストエディタでの確認・変換: メモ帳などのテキストエディタでファイルを開き、エンコーディングを確認・変換してからVBAで処理します。

ADODB.Streamオブジェクトを使ったファイルIOは、より高度なテクニックですが、文字化け問題の解決に非常に有効です。必要に応じて学習することをお勧めします。

まとめ

本記事では、Excel VBAのOpen文を用いたテキストファイルの読み込み、書き込み、追記の基本的な方法を解説しました。FreeFile関数でファイル番号を取得し、Input、Output、Appendモードを使い分けることで、目的に応じたファイル操作が可能になります。また、セキュリティ警告への対処法や、よくある失敗パターンとその回避策についても触れました。

これらの基本をマスターすることで、Excelと外部テキストファイルとのデータ連携が格段に容易になります。まずは簡単なテキストファイルの読み書きから試してみましょう。さらに高度なファイル操作や、文字化け問題への対応が必要な場合は、ADODB.Streamオブジェクトの活用も検討してください。

📊

Excelトラブル完全解決データベースこの記事以外にも、様々なエラー解決策をまとめています。困った時の逆引きに活用してください。

🏆

超解決 Excel検定 あなたのExcel実務能力を3分で測定！【1級・2級・3級】