VBA ログ出力 方法

ログ出力する

どのプロシージャ(Sub,Function)でエラーかわかるようにする。

何のエラーかメッセージボックスで表示する。

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