VBA テキストファイル出力処理
こんにちは、カズマです。
VBAにてフォルダの確認及び作成処理を残したので
ついでにテキストファイル出力も備忘録として残しておきます。
まぁ、万が一エラーが発生した場合にテキスト出力してログを残せるようにと
思って作ったものです。
<br /> '---------------------------------------------------------------------------------<br /> ' 機能 : エラーログ出力処理<br /> '---------------------------------------------------------------------------------<br /> Public Function OutputErrMsg(ByVal errCd As String, ByVal errMsg As String)</p> <p> Dim fileName As String '重複しないファイル名称を取得設定<br /> fileName = Now() ' 現在日時を文字列化<br /> '現在日時の文字列をYYYYMMDDHHMMSSに変換、拡張子を付随<br /> fileName = Replace(Replace(Replace(fileName, "/", ""), ":", ""), " ", "") & ".log"</p> <p> 'フォルダがなかったら作成<br /> If Not FolderExists("C:\LOG") Then<br /> Call MkDir("C:\LOG")<br /> End If</p> <p> Dim fileNo As Integer<br /> fileNo = FreeFile</p> <p> Open "C:\LOG" & fileName For Output As #fileNo 'ファイルを新規作成</p> <p> 'エラー番号_エラーメッセージ<br /> Print #fileNo, errCd & "_" & errMsg<br /> Close #fileNo</p> <p>End Function</p> <p>
最近のコメント