エクセルVBAでマクロの動作をログファイルに記録する最も簡単なプログラム

photo credit: bwc Old school log file via photopin (license)

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

エクセルVBAによるマクロの動作状況については、Debug.Printによるイミディエイトウィンドウへの表示をすることで確認することができます。

ですが、表示したい内容が大量にある場合や、記録として残しておきたいときはどうしたら良いでしょうか？

そんな時は、ログファイルに出力して記録をとっておくという手法がオススメです。

ということで、何回かのシリーズで、ExcelVBAによるマクロの動作状況をログファイルに残す方法をお伝えしたいと思います。

以下記事で紹介しているOpenやCloseなどを使っても実現できるのですが、追々ファイルが存在しなかったときの処理も入れることを想定して、より扱いやすいFileSystemオブジェクトを使う方法にて紹介していきます。

エクセルVBAでテキストファイルに書き出す最も簡単なプログラム

エクセルVBAでは様々なテキストファイルを生成できますが、今回はその中でも最も簡単な拡張子txtのテキストファイルをエクセルシートのデータを元に出力する方法についてお伝えしています。

初回の今回は、FileSystemオブジェクトを使ってログファイルに書き出す最も簡単なプログラムを紹介します。

では、行ってみましょう！

FileSystemオブジェクトとその生成と破棄
テキストファイルにログを記録するプログラム
ログファイルへの出力結果
まとめ
連載目次：エクセルVBAでマクロの動作状況をログファイルに残す方法

FileSystemオブジェクトとその生成と破棄

FileSystemオブジェクトはファイル、フォルダ、ドライブなどを操作するためのオブジェクトです。

なんで、ログファイルの書き込みにFileSystemオブジェクトを使うねんと思われるかも知れませんが、大丈夫です。

FileSystemオブジェクトはログファイル（つまりテキストファイルですが）の書き込みもできちゃう優れもののオブジェクトなのです。

使用する際は、オブジェクトの生成が必要になりますので、以下プログラムがベースとなります。

Sub FSOを使う()

Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")

'処理

Set objFso = Nothing

End Sub

CreateObjectで生成して、最後は破棄をします。

詳細については以下記事に書いていますので、合わせてご覧下さいね。

【エクセルVBA】FileSystemオブジェクトの基本と簡単にフルパスを生成・分解する方法

FileSystemオブジェクトを使ってエクセルVBAでファイルやフォルダを取り合う使う方法。今回は、FileSystemオブジェクトの基本と、ファイルのフルパスを簡単に生成・分解する方法ついてお伝えします。

テキストファイルにログを記録するプログラム

それで今回ですが、例えば、エラーが発生したときのことを想定して

タイムスタンプ
「エラーが発生しました」

とだけログファイルに蓄積して残していくプログラムを紹介したいと思います。

前提として、既にファイル「error.log」は空のファイルとして存在しているものとします。

フォルダの構成はこんな感じです。

そして、マクロとして「ログファイル.xlsm」に仕込むVBAプログラムはこちらです。

Sub writeLog()

Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")

With objFso.OpenTextFile(ThisWorkbook.Path & "\error.log", 8)

    .WriteLine Now & vbTab & "エラーが発生しました "
    .Close

End With

Set objFso = Nothing

End Sub

あら、簡単そうじゃないですか？

上記ベースから追加になったのは、6行目からの４行だけです。

以下、解説していきますね。

OpenTextFileメソッドでテキストファイルとしてファイルを開く

まず6行目の部分ですが、ログファイル「error.log」を書き込み用として開く処理です。

テキストファイルとしてファイルを開く場合は、OpenTextFileメソッドを使います。

書き方はこうです。

FileSystemオブジェクト.OpenTextFile(ファイルパス, IOモード)

ファイルパスは開くテキストファイルのパスです。フルパスで指定するのが一般的でしょう。

IOモードは以下に表で示すファイルを開くモードを指定します。

定数	値	内容
ForReading	1	ファイルを読み取り専用として開く
ForWriting	2	ファイルを書き込む専用として開く
ForAppending	8	ファイルの最後に追加して書き込む用として開く