[VBAマクロ]テキストファイルを吐き出す。

現在の時刻の名前でﾃｷｽﾄファイルを吐き出します。
エラーログ等で使用します。


    'ログの書き出し---------------------------
    Dim strFilePath As String
    Dim intFileNo As Integer
    Dim strData As String
    strFilePath = "D:\TEST" & "_" & Format(Now, "mmddhhnnss") & ".txt"
    intFileNo = FreeFile
    Open strFilePath For Output As #intFileNo
    Print #intFileNo, StrLog
    Close intFileNo



テキスト　マクロ　txt FO