現場の暗闇を照らす：VBAにおける「実行時エラー・テレメトリ」の極致
Excel VBAを「おもちゃ」と呼ぶ者は、その真のポテンシャルを知らない。
何千もの端末で稼働するレガシーシステムにおいて、ユーザーから「なんかエラーが出た」とだけ報告されることほど、エンジニアにとって無益で消耗する瞬間はないだろう。
真のアーキテクトは、障害を「発生させる」のではなく「観測可能にする」。今日は、リモート環境で発生したエラーを完全にトレースし、開発者のデスクへ「正確な状況」を届けるための、極限のロギング戦略を授ける。
—
1. 泥沼化を避けるための「エラーハンドリング・アーキテクチャ」
多くのVBAコードは、`On Error Resume Next` を乱用してエラーを握りつぶす。これは自殺行為だ。
我々が目指すのは、「例外の伝播」と「スタック情報の記録」を両立させる、透過的なエラーロギングである。
なぜテキストファイルなのか
DBへの直接書き込みはネットワーク依存度が高く、排他制御でデッドロックを引き起こすリスクがある。まずはローカルのテキストファイルに不可逆的に記録し、必要に応じてそれをバックグラウンドで集約する。これが堅牢な設計の定石だ。
—
2. 実装：プロレベルのログ出力モジュール
以下は、メモリリークを許さず、システム資源を最小限に抑えるためのロギングテンプレートだ。
‘ @Module: Logger
‘ @Description: Windows APIを利用した超高速ファイルI/Oとエラー追跡
Option Explicit
If VBA7 Then
Private Declare PtrSafe Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long
Else
Private Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long
End If
Public Sub WriteErrorLog(ByVal ErrNumber As Long, ByVal ErrDescription As String, ByVal ProcName As String)
Dim FileNum As Integer
Dim LogPath As String
Dim LogContent As String
‘ ログ出力先はユーザーのAppData配下を推奨（権限トラブル回避）
LogPath = Environ(“APPDATA”) & “\SystemApp\Error.log”
‘ メモリ最適化: FileSystemObject(FSO)は便利だが、インスタンス生成のコストを考慮し、
‘ 単発のロギングにはネイティブのOpenステートメントを使用する（オーバーヘッドの最小化）
FileNum = FreeFile
Open LogPath For Append As #FileNum
LogContent = “[” & Now & “] ” & _
“User:” & GetUser() & ” | ” & _
“Proc:” & ProcName & ” | ” & _
“ErrCode:” & ErrNumber & ” | ” & _
“Desc:” & ErrDescription
Print #FileNum, LogContent
Close #FileNum
End Sub
Private Function GetUser() As String
Dim buffer As String 255
Dim ret As Long
ret = GetUserName(buffer, 255)
GetUser = Left$(buffer, InStr(buffer, vbNullChar) – 1)
End Function
—
3. 現場で「使える」ための運用極意
オブジェクトのライフサイクルを制御せよ
VBAのメモリ管理は甘美だが、`Set Nothing` を怠ることは許されない。特にクラスモジュールやADODB.Connectionをループ内で生成する場合、スコープを抜ける際の明示的な解放は必須だ。
Public Sub CriticalProcess()
On Error GoTo ErrorHandler
‘ リソースの初期化
Dim db As Object
Set db = CreateObject(“ADODB.Connection”)
‘ … 処理本体 …
Exit Sub
ErrorHandler:
‘ 発生箇所を明示的に渡す
WriteErrorLog Err.Number, Err.Description, “CriticalProcess”
‘ リソース解放（エラー時こそ重要）
If Not db Is Nothing Then Set db = Nothing
‘ 再スロー（必要に応じて上位へ通知）
Err.Raise Err.Number, “CriticalProcess”, Err.Description
End Sub
レガシー環境への配慮：APIの使い分け
`#If VBA7 Then` を使用した条件付きコンパイルは、32bit/64bitが混在する社内環境において必須の教養だ。古いExcel 2010環境から最新のMicrosoft 365まで、同一のコードベースで動かすことが保守コストを劇的に下げる。
—
4. チーフアーキテクトからの提言
ログを取るだけでは不十分だ。
真に賢いエンジニアは、「ログファイルが一定サイズを超えたらアーカイブする」あるいは「エラー発生時に特定の共有フォルダへ非同期でログを同期させる」という自動化のレイヤーを一段上に用意する。
Excel VBAは、単なる表計算ソフトの延長ではない。それはWindows OSという巨大な基盤の上に立つ、極めて強力なインターフェースだ。
コードを書く時、常にその背後にあるメモリとCPUの挙動を想像してほしい。
エラーは「敵」ではない。システムが我々に発している「改善のサイン」だ。
そのサインを正確に拾い上げ、ログという形で可視化する。それこそが、伝説的なエンジニアへと至る唯一の道である。
さあ、コードを書き換えろ。あなたのシステムが、明日からより静かに、そして確実に稼働し始めるはずだ。
