FiveTech Support Forums

Function PruebaLeerXLSX()

cFile :="C:\MIFILE.xlsx"
oExcel:=TOleAuto():New("Excel.Application")
oBook := oExcel:Workbooks:Open(cFile)
oHoja := oExcel:Get( "ActiveSheet" )

nTotRowCount:= oHoja:UsedRange:Rows:Count()

FOR Q=2 TO nTotRowCount

   vColumna1:=oHoja:Cells( Q, 1 ):Value)
   vColumna2:=oHoja:Cells( Q, 2 ):Value

   MsgInfo( vColumna1+" - "+vColumna2 , "Linea "+ALLTRIM(STR(Q)))

NEXT

oExcel:WorkBooks:Close()
oExcel:Application:Quit()
oExcel:Quit()
oHoja:End()
oExcel:End()
RELEASE oHoja
RELEASE oExcel

Return nil
//