Jojo said:
I am new to VBA coding. I need to save messages to a log file so I can
monitor my Macro's process by the messages in the log file. Can anyone
give me a sample code to save messages to a file?
Thanks.
-Jojo
Sub demo()
' write messages to a "log file"
'
' This is based on the example in the VBA Help
' for the FreeFile function.
Dim FileNumber As Integer
Dim FileName As String
' Get unused file number
FileNumber = FreeFile
' Construct file name based on date, time
FileName = "C:\temp\test_" & _
Format(Now, "yyyyMMdd_hhmm") & ".log"
' Open the log file
Open FileName For Output As #FileNumber
' While your macro does some work,
' write messages to the file like this:
Write #FileNumber, "This is the first message."
' Do some more work, write another message
Write #FileNumber, "This is the second message."
' When your macro finishes, close the log
Close #FileNumber
End Sub
The "For Output" expression means that if the file already exists, its
contents will be cleared and replaced by what you write next. If you want to
keep the old contents and add the new, change it to "For Append".
--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
