Ejemplo de TFileXls

Post Reply
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Ejemplo de TFileXls

Post by 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
R.F.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by 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
Saludos
R.F.
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Post by 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
R.F.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by R.F. »

Si usas xHarbour todo lo que necesitas ya lo tienes.

Este es el ejemplo para leer celdas :

Code: Select all

    

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
Saludos
R.F.
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Post by Armando »

René:

Grande Maestro ! ( Para variar :-) )

Muy agradecido

Un abrazo, Armando
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Post Reply