|
| View previous topic :: View next topic |
| Author |
Message |
Jojo
Guest
|
 Posted: Mon Nov 05, 2007 8:58 pm Post subject: How to save messages to a log file? |
 |
|
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 |
|
| Back to top |
|
 |
Google
Sponsor
|
| Posted: Mon Nov 05, 2007 8:58 pm Post subject: Advertisement |
|
|
|
|
| Back to top |
|
|
Jay Freedman
Guest
|
| Posted: Mon Nov 05, 2007 9:37 pm Post subject: Re: How to save messages to a log file? |
|
|
Jojo wrote:
| Quote: | 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 FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit. |
|
| Back to top |
|
|
Helmut Weber
Guest
|
| Posted: Tue Nov 06, 2007 11:02 am Post subject: Re: How to save messages to a log file? |
|
|
Hi Jojo,
in addition to Jay's remarks,
you may find writing error messages to your log-file useful,
of course, only errors you can recover from.
Untested pseudocode!
on error goto myerror
myerror:
Write #FileNumber, err.description, err.number
resume
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de" |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
|
