TRY *Was zu testen ist 1='' CATCH * Abzufangender Fehler DEBUG SUSPEND ?1 ?''=1 ?122 FINALLY * ENDTRY>Set a breakpoint at the first line, and open the debugger. Then you step through each line, and notice what's going on.
>>>>>>DO xls_import >>>>>> >>>>>>FUNCTION xls_import >>>>>> >>>>>> >>>>>>PARAMETERS tcFile >>>>>>** Replaces VFP Import Command for XLS. VFP Command does not accept xlsx file formats >>>>>>** First try the standard import. >>>>>>** If it failes with error code 1661 (Microsoft Excel file format is invalid.) then open Excel and resave with format 39( xlExcel5, xlExcel7 ) >>>>>>** Try to import again. >>>>>>** If it succeeds, return the name of the table >>>>>>** If it still fails, return an empty string. Calling program will check for EMPTY() to determine success >>>>>> >>>>>>LOCAL lcReturn,lcNewFile >>>>>>lcReturn = "" >>>>>> >>>>>>TRY >>>>>> IMPORT FROM ("c:\colin.xlsx") XLS >>>>>> lcReturn = DBF() >>>>>>CATCH >>>>>> =AERROR(abcde) >>>>>> IF abcde[1] = 1661 >>>>>> tmpoxl=CREATEOBJECT("excel.application") >>>>>> tmpoxl.DisplayAlerts = .F. >>>>>> tmpoxl.Application.WorkBooks.Open(tcFile) >>>>>> lcNewFile = "c:\tempdl\" + JUSTFNAME(tcfile) >>>>>> tmpoxl.activeworkbook.saveas(lcnewfile,39) >>>>>> tmpoxl.quit >>>>>> tmpoxl= .null. >>>>>> TRY >>>>>> IMPORT FROM (lcnewfile) xls >>>>>> lcReturn = DBF() >>>>>> CATCH >>>>>> ENDTRY >>>>>> DELETE FILE (lcnewfile) >>>>>> ENDIF >>>>>>ENDTRY >>>>>>RETURN lcReturn >>>>>>