开发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