VBA宏 将内容生成到一个新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