Ejemplo de TFileXls

[Armando]

Amigos:

Alguien que quiera compartirme un pequeño ejemplo usando la clase TFileXls de Ramón Avendaño ?

Necesito leer una hoja de Excel.

este es mi correo soisa2002@prodigy.net.mx

Gracias, Armando

[R.F.]

FileXLS solo sirve para crear hojas de Excel, no para leerlas, si quieres leer una hoja de Excel, tienes que utilizar OLE forzosamente

[Armando]

René:

Gracias por la luz, aclarame más el panorama por favor

Necesito alguna LIB ole ?, donde la localizo ?

utilizo FWH 2.7MZO y xHarbour

Saludos, Armando

[R.F.]

Si usas xHarbour todo lo que necesitas ya lo tienes.

Este es el ejemplo para leer celdas :

Code: Select all  Expand view  RUN

   

LOCAL oExcel, oHoja, nRows, nCols
   
    oExcel := TOleAuto():New( "Excel.Application" )

    oExcel:WorkBooks:Open(cGetFile("*.XLS", "Seleccione Archivo"))
    oHoja := oExcel:Get( "ActiveSheet" )

    nRows := oHoja:UsedRange:Rows:Count()
    nCols := oHoja:UsedRange:Columns:Count()

   FOR nRow := 2 TO nRows
      FOR nCol := 1 TO nCols
          ? oHoja:Cells(nRow, nCol):Value
         SysRefresh()
      NEXT
   NEXT

     oExcel:Quit()

     oHoja:End()
     oExcel:End()

RETURN


[Armando]

René:

Grande Maestro ! ( Para variar )

Muy agradecido

Un abrazo, Armando