Error Routine

Hi,

I have this code where i want to track errors if file does not open or if the refreshall does not work. How do i handle my error using on error goto function?

Excel.Application.Workbooks.Open "C:\flextest\iman1_all.xls"
Excel.Application.Visible = True
Worksheets(1).Select
Excel.Application.DisplayAlerts = False
Excel.ActiveWorkbook.RefreshAll
Sheets("Chart1").Select
Excel.ActiveWorkbook.Save
Excel.ActiveWorkbook.Close

Thanks,
Rakshan

I'm not sure how to get an error back from another application.

What i want to do is write out a log to a text file if the xls file does not open or if the refresh command fails. I want to just print a error line stating the file was unable to open or refresh failed to a log.txt file.


Thanks,
Rakshan.

Well, general syntax for handling errors goes something like this:

On Error Go To HandleErrors
'Your Code

HandleErrors:
'Your handling code

The Err object should catch the types of errors that you are describing, however, I am not sure exactly how it works through OLE Automation. I actually catch errors from other programs not being controlled through VB you'll need to use a Window's API function to watch for such events. But exactly which one, I'm not entirely sure. I hope this helps!