Execl VBA ログ出力 テキスト出力 FileSystemObject オブジェクト

Sub WriteLog(msg As String)

    Dim FSO As Object, LOG As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    'ログ出力フォルダチェック
    Call FolderCheck
    ''ログファイルがなければ作成
    LogFile = LogFolder & "\" & LogFileName
    If FSO.FileExists(LogFile) = False Then
        FSO.CreateTextFile LogFile
    End If
    ''上書きモードでo-punn 

    Set LOG = FSO.OpenTextFile(LogFile, 2)
    ''日時＋タブ＋メッセージを出力
    LOG.WriteLine Now & vbTab & msg
    Set LOG = Nothing
    Set FSO = Nothing
End Sub

FileSystemObject によるファイルへのアクセス

Excel VBA 逆引き辞典パーフェクト 2013/2010/2007/2003対応

VBAエキスパート公式テキスト Excel VBA ベーシック [模擬問題プログラム付き]

(無料電話サポート付)できるExcel マクロ&VBA 作業の効率化&スピードアップに役立つ本 2016/2013/2010/2007対応 (できるシリーズ)