I believe VB script support On Error Resume Next

Set objExcelApp = CreateObject("Excel.Application")
'Open Excel file
On Error Resume Next
Set objExcelWorkbook = objExcelApp.Workbooks.Open(pstrExcelFilename) '
On Error goto 0
if objExcelWorkbook is Nothing then

--
Regards,
Tom Ogilvy

"Sa" wrote in message
...
Hello,

I am new in Excel object model. I am writing VBScript to open Excel file.
The following is a segment of my codes:

Set objExcelApp = CreateObject("Excel.Application")
'Open Excel file
Set objExcelWorkbook = objExcelApp.Workbooks.Open(pstrExcelFilename)
'
If IsNull (objExcelWorkbook) Then
objExcelApp.Quit
Set objExcelWorkbook = Nothing
Set objExcelApp = Nothing
vfValidateABRUploadExcel = cintErrorOpenExcelFile
Exit Function
End If
'Set the active worksheet
Set objExcelWorksheet = objExcelWorkbook.Sheets(cintExcelWorkSheetNo)
objExcelWorksheet.Activate

If the Excel file is invalid format (even file extension is XLS), it will
throw exception at the "objExcelApp.Workbooks.Open(pstrExcelFilename) "
statement (that is, the program cannot run to "IsNull (objExcelWorkbook)"
line).

May I know how to prevent open invalid format Excel file? Or, how do I
catch the exception that throws at
"objExcelApp.Workbooks.Open(pstrExcelFilename) " statement?

Thanks a lot.

Sa