Par2: Reading Excel files with ODBC (DSNless connection) 2009-07-01 -- J Shankar As posted by somebody on the NG ::
LOC:NAME STRING('[SHEET1$]')
LOC:FILENAME STRING('SOMEFILE.XLS')
LOC:PATH STRING('C:\SOMEPATH')
LOC:OWNER STRING(300)
EXCEL FILE,DRIVER('ODBC','/VERIFYVIASELECT =
TRUE'),PRE(EXC),BINDABLE,CREATE,THREAD,NAME(LOC:NAME),OWNER(LOC:OWNER)
Record RECORD,PRE()
NOMBRE1 STRING(15)
NOMBRE2 STRING(15)
APATERNO STRING(20)
......
LOC:OWNER = 'Driver={{Microsoft Excel Driver (*.xls)};DriverId=790;'& |
'Dbq='&CLIP(LOC:FILENAME)&';DefaultDir='&CLIP(LOC:PATH)
OPEN(EXCEL)
SET(EXCEL)
LOOP
NEXT(EXCEL)
IF ERRORCODE() THEN BREAK.
.....
Printed May 4, 2024, 9:27 am This article has been viewed/printed 35119 times. |