VBA巨集 將內容生成到一個新txt文件中(親自實踐)
阿新 • • 發佈:2019-01-30
開發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