開發VBA,有時候需要將資訊輸出到外部檔案,

比如說在C盤下生成一個以系統時分秒為檔名的txt,其中記錄錯誤資訊

可以用以下程式碼:

'將錯誤資訊寫入Log檔案
Private Sub writeErrorLog(ByVal checkErrorCollect As Collection)
    Dim fso As Object
    Dim MyTxt As Object
    Dim MyFName As String
    Dim i As Integer
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    With ActiveSheet
        MyFName = "c:\" & Hour(Now())& Minute(Now())& Second(Now()) & ".txt"
        
        Set MyTxt = fso.CreateTextFile(FileName:=MyFName, OverWrite:=True)
        
        For i = 1 To checkErrorCollect.Count
            MyTxt.Write checkErrorCollect.Item(i) & vbCrLf
        
        Next i

        MyTxt.Close
    End With
    Set MyTxt = Nothing
    Set fso = Nothing
End Sub