old_error = ON("ERROR")
fl_error = .f.
ON ERROR fl_error = .f.
oExcel = GetObject(,"Excel.Application") && To get an existing instance of the Excel
IF fl_error .OR. TYPE("oExcel") # "O" .OR. ISNULL(oExcel)
   oExcel = CreateObject("Excel.Application")
ENDIF
IF fl_error .OR. TYPE("oExcel") # "O" .OR. ISNULL(oExcel)
   MessageBox("I can't create an Excel Object", 0, "Warning")
   ON ERROR &old_error
   RETURN .f.
ENDIF
oWorkbook = oExcel.workbooks.open(alltrim(basevars.baseljb) + "LaserJobbag.xls")
ON ERROR &old_error
IF fl_error .OR. TYPE("oWorkbook") # "O" .OR. ISNULL(oWorkbook)
   MessageBox("I can't Open Excel WorkBook", 0, "Warning")
   RETURN .f.
ENDIF