Page 1 of 1
Ejemplo de TFileXls
Posted: Mon Feb 12, 2007 2:31 pm
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
Posted: Mon Feb 12, 2007 8:06 pm
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
Posted: Tue Feb 13, 2007 3:44 am
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
Posted: Tue Feb 13, 2007 4:20 pm
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
Posted: Tue Feb 13, 2007 5:11 pm
by Armando
René:
Grande Maestro ! ( Para variar
)
Muy agradecido
Un abrazo, Armando