C'm on. The student should do this for preparation ... (eg)

Since I'm to lazy: Will IMPORT FROM create a table?

>if if ever goes into IF abcde[1] = 1661 undefined tcFile is highly probabale ;-)
>
>
>>Would be nice to know the errorcodes :)
>>
>>>I haven't used functions before - I have always avoided them - this is my code but it gives errors
>>>
>>>

>>>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
>>>