lcExcelFile = GETFILE() TEXT TO lcConnStr TEXTMERGE NOSHOW DRIVER=Microsoft Excel Driver (*.xls); FIL=excel 8.0; DefaultDir=<<JUSTPATH(lcExcelFile)>>; DBQ=<<lcExcelFile>>; ENDTEXT 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 ENDIFRegards