>>>LOCAL oXLSConnect, oRecXLS, oXLSRS >>>oXLSConnect = CREATEOBJECT('adodb.connection') >>>oXLSConnect.cConnectionString = [Provider=Microsoft.Jet.OLEDB.4.0;Data Source=] ; >>> + GETFILE() + [;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1";] >>>oXLSConnect.Open >>> >>>oRecXLS = CREATEOBJECT('veRecHandler') && veRecHandler is an internal class we have >>>lcSqlCmd = "select * from [" + TRIM(sheet_name) + "]" >>>oXLSRS = oRecXLS.InitRecordSet(adUseClient, adOpenStatic, adLockOptimistic, lcSqlCmd, oXLSConnect) >>>oRecXLS.Rs2Cusror(oXLSRS, "C_" + TRIM(table_name)) >>> >>>>>>
>>lcXLS = GETFILE("xls") >>lcConn = "Driver={Microsoft Excel Driver (*.xls)};"+; >> "DriverId=790;Dbq="+m.lcXLS+; >> ";DefaultDir="+JustPath(m.lcXLS)+";" >>lnHandle = SQLStringConnect(lcConn) >>SQLTables(lnHandle,"", "SheetNames") >>Scan >> lcTableName = Trim(SheetNames.Table_Name) >> lcOutput = Chrtran(m.lcTableName,' $','_') >> SQLExec(lnHandle,'select * from ['+m.lcTableName+']',m.lcOutput ) >>endscan >>SQLDisconnect(lnHandle) >>Cetin