I want to see excel LOGS

[leo89]

Hello i have a macro that save my excel file each day at one period of time..but some time the macro does not work..or something is bugged..how can i see the LOGS for an excel file? to see what was the problem..cant find out whats make my macro..or my excel file stop..

 

[wigi]

There are no logs. You should keep track of your process execution, making your own log files. For instance, text files in a central directory.

Use statements like "On Error GoTo ..." to skip errors and not bring your procedures to an unexpected halt.

 

[Ruddles]

Someting as simple as this would allow you to record events as your macros progress:-

[FONT=Fixedsys]Option Explicit[/FONT]
 
[FONT=Fixedsys]Sub WriteLog(ByVal sFile As String, ByVal sStatus As String)[/FONT]
 
[FONT=Fixedsys]  Dim intFH As Integer[/FONT]
 
[FONT=Fixedsys]  intFH = FreeFile[/FONT]
[FONT=Fixedsys]  Open sFile For Append As intFH[/FONT]
[FONT=Fixedsys]  Print #intFH, Format(Now(), "dd/mm/yyyy hh:nn:ss"); " "; sStatus[/FONT]
[FONT=Fixedsys]  Close intFH[/FONT]
 
[FONT=Fixedsys]End Sub[/FONT]

Every time you want to record something in a log file, you pass the name of the log file and the event you want to record to the subroutine and it will append the event to that file with a date/time-stamp.

For example, if you wanted to record when each macros starts and ends, you would place statements like this at the start and end of every macro:-

[FONT=Fixedsys]Public Sub MyMacro()[/FONT]
 
[FONT=Fixedsys]  Call WriteLog("c:\mylog.txt", "MyMacro started")[/FONT]
 
[FONT=Fixedsys][COLOR=green]  ' some code[/COLOR][/FONT]
 
[FONT=Fixedsys]  Call WriteLog("c:\mylog.txt", "MyMacro ended")[/FONT]
 
[FONT=Fixedsys]End Sub[/FONT]

If you wanted to record every time your macro went round a loop, you might do something like this:-

[FONT=Fixedsys]  For iRow = 2 To iLastRow[/FONT]
[FONT=Fixedsys]    Call WriteLog(Application.Path & "\logfile.txt", _[/FONT]
[FONT=Fixedsys]                  "Processing row " & iRow & ", column A = " & Cells(iRow, "A").Value)[/FONT]
[FONT=Fixedsys][COLOR=green]    ' some code[/COLOR][/FONT]
[FONT=Fixedsys]  Next iRow[/FONT]