COMO PUEDO LEER UN ARCHIVO EXCEL DESDE FIVE WIN?

Board index FiveWin para Harbour/xHarbour COMO PUEDO LEER UN ARCHIVO EXCEL DESDE FIVE WIN?

lafug

Posts: 185

Joined: Thu Nov 17, 2005 12:48 AM

COMO PUEDO LEER UN ARCHIVO EXCEL DESDE FIVE WIN?
Posted: Wed Jul 24, 2013 07:21 PM

Amigos necesito leer una hoja excel para extraer sus datos.. como lo hago?

Gracias de antemano por sus respuestas :-)

Luis Alfonso Fuentes Guerrero

FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: COMO PUEDO LEER UN ARCHIVO EXCEL DESDE FIVE WIN?
Posted: Wed Jul 24, 2013 07:38 PM

Hola...
Asumiendo que en la primera fila están los títulos se puede leer así...

Code (fw): Select all Collapse

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
//

Espero te sirva la idea...
Saludos, Esteban.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

lafug

Posts: 185

Joined: Thu Nov 17, 2005 12:48 AM

Re: COMO PUEDO LEER UN ARCHIVO EXCEL DESDE FIVE WIN?
Posted: Wed Jul 24, 2013 08:09 PM

mil Gracias esteban!!, es lo que necesitaba.

un abrazo

Luis Alfonso Fuentes Guerrero

FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: COMO PUEDO LEER UN ARCHIVO EXCEL DESDE FIVE WIN?
Posted: Thu Jul 25, 2013 12:58 PM

Excelente...
Saludos!

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

FiveTech Support Forums

Continue the discussion