>>Does any know of a way of importing xlsx into VFP?
>
>There are probably much better ways but we do

>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 (tcFile) 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

Looks good to me - thanks a lot