nTables = SQLTABLES(lnConnHand, ['TABLE','SYSTEM TABLE'], 'tExcelFile')HTH
>lcConnStr = ; >"DRIVER={Microsoft Excel Driver (*.xls)};" + ; >"FIL=Excel 97;" + ; >"DefaultDir=D:\Tools\Tasks;" + ; >"DBQ=D:\Tools\Tasks\TaskList.xls" >lnConnHand = SQLSTRINGCONNECT(lcConnStr) > >IF lnConnHand > 0 > STORE SQLTABLES(lnConnHand, 'TABLE', 'tExcelFile') TO nTables > IF nTables > 0 > SELECT tExcelFile > lcSheet=ALLTRIM(tExcelFile.Table_Name) > lnSqlRes = SQLEXEC(lnConnHand, [SELECT * FROM "]+lcSheet+["],'tImport') > ENDIF > ln=SQLDISCONNECT(lnConnHand) > USE IN tExcelFile > USE IN tImport >ENDIF >