ErrLog

Summary

エラーログを出力するための関数です。

Function ErrLog(fncName As String) As String
'エラーログを出力する

Dim str As String
    str = str & ">  Err" & vbCrLf
    str = str & "    " & Now & vbCrLf
    str = str & ">>ErrNo      " & Err.Number
    str = str & ">>               " & Err.HelpContext & vbCrLf
    str = str & ">>               " & Err.HelpFile & vbCrLf
    str = str & ">>               " & Err.Description & vbCrLf
    str = str & ">>fncName " & fncName & vbCrLf
    str = str & ">>  Line       " & Erl
End Function

説明

この関数は、エラーログを出力するための処理を行います。

具体的な動作は以下の通りです：

str 変数を初期化します。 エラーログの各項目を str に連結していきます。

Now 関数を使用して現在の日時を取得し、ログに追加します。 Err.Number、Err.HelpContext、Err.HelpFile、Err.Description などのエラー情報をログに追加します。 fncName に指定された関数名をログに追加します。

Erl を使用してエラーが発生した行番号をログに追加します。 str を戻り値として返します。

引数

• fncName : String型 エラーログに表示する関数名を指定します。

戻り値

• 戻り値の型: String型 エラーログの文字列を返します。

Examples

この関数を使用することで、エラーログの文字列を取得することができます。

ErrLog("fncName")