FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ejemplo de TFileXls
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Ejemplo de TFileXls
Posted: Mon Feb 12, 2007 02:31 PM

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
Posts: 840
Joined: Thu Oct 13, 2005 07:05 PM
Ejemplo de TFileXls
Posted: Mon Feb 12, 2007 08:06 PM

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.
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Ejemplo de TFileXls
Posted: Tue Feb 13, 2007 03:44 AM

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
Posts: 840
Joined: Thu Oct 13, 2005 07:05 PM
Ejemplo de TFileXls
Posted: Tue Feb 13, 2007 04:20 PM
Si usas xHarbour todo lo que necesitas ya lo tienes.

Este es el ejemplo para leer celdas :

    

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.
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Ejemplo de TFileXls
Posted: Tue Feb 13, 2007 05:11 PM

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

Continue the discussion