topic-35903

wartiaga

Posts: 253

Joined: Wed May 25, 2016 01:04 AM

Help with excel
Posted: Tue Jul 31, 2018 06:10 PM

Hi, how i can create a xls ou xlsx file with many sheets and put values?

Thanks in advance.

Jeff Barnes

Posts: 933

Joined: Sun Oct 09, 2005 01:05 PM

Re: Help with excel
Posted: Tue Jul 31, 2018 07:55 PM

Have a look here: http://wiki.fivetechsoft.com/doku.php?id=ole_excel

Thanks,

Jeff Barnes

(FWH 16.11, xHarbour 1.2.3, Bcc730)

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Help with excel
Posted: Wed Aug 01, 2018 02:18 AM

wartiaga wrote:Hi, how i can create a xls ou xlsx file with many sheets and put values?

Thanks in advance.

Pequeño sample...saludos...

Code (fw): Select all Collapse

PROCEDURE lee_angulos( oExResu, oExAngu, nFilGrabar )
   LOCAL oHoja, nRows, nRow, cHoja, nColI := 0, nColJ := 0, nFor := 0 ,;
      aLectura := {}

   oExAngu:Sheets("COLUMNAS"):Select() // SELECCIONO Y ME CAMBIO A LA HOJA(pestaña) COLUMNAS Q VOY A LEER
   oHoja := oExAngu:ActiveSheet() // ACTIVO HOJA SELECCIONADA, SINO ESPECIFICAS QUE HOJA, TOMARA POR DEFECTO LA HOJA1
   oHoja:Cells(2, 4):Select() // POSICIONA EL CURSO EN LA CELDA ESPECIFICADA(D8) PARA LEER COLUMNA( row, col / fila, col)
   nRows := oHoja:UsedRange:Rows:Count() // CANTIDAD LINEAS USADAS INCLUYENDO LA LINEA 1 QUE ES LA CABECERA

   FOR nRow := 2 TO nRows STEP 3
       cHoja := oHoja:Cells(nRow, 4):Value // NOMBRE DE LA HOJA Q DEBO LEER EN LIBRO RESUMEN
       nColI := oHoja:Cells(nRow, 9):Value // VALOR V2 A LLEVAR A LIBRO RESUMEN
       nColJ := oHoja:Cells(nRow, 10):Value // VALOR V3 A LLEVAR A LIBRO RESUMEN
*       nColI := Round( oHoja:Cells(nRow, 9):Value, 2 ) // VALOR V2 A LLEVAR A LIBRO RESUMEN
*       nColJ := Round( oHoja:Cells(nRow, 10):Value, 2 ) // VALOR V3 A LLEVAR A LIBRO RESUMEN
//
       AAdd( aLectura, {cHoja, nColI, nColJ, nFilGrabar} ) // CARGO EN ARRAY NOMBRES DE LAS HOJAS A BUSCAR EN RESUMEN Y VALORES A GRABAR
   NEXT

Dios no está muerto...

Gracias a mi Dios ante todo!

wartiaga

Posts: 253

Joined: Wed May 25, 2016 01:04 AM

Re: Help with excel
Posted: Wed Aug 01, 2018 01:17 PM

Jeff Barnes wrote:Have a look here: http://wiki.fivetechsoft.com/doku.php?id=ole_excel

Thank you! I will try.

wartiaga

Posts: 253

Joined: Wed May 25, 2016 01:04 AM

Re: Help with excel
Posted: Wed Aug 01, 2018 01:18 PM

joseluisysturiz wrote:

wartiaga wrote:Hi, how i can create a xls ou xlsx file with many sheets and put values?

Thanks in advance.

Pequeño sample...saludos...

Code (fw): Select all Collapse

PROCEDURE lee_angulos( oExResu, oExAngu, nFilGrabar )
   LOCAL oHoja, nRows, nRow, cHoja, nColI := 0, nColJ := 0, nFor := 0 ,;
      aLectura := {}

   oExAngu:Sheets("COLUMNAS"):Select() // SELECCIONO Y ME CAMBIO A LA HOJA(pestaña) COLUMNAS Q VOY A LEER
   oHoja := oExAngu:ActiveSheet() // ACTIVO HOJA SELECCIONADA, SINO ESPECIFICAS QUE HOJA, TOMARA POR DEFECTO LA HOJA1
   oHoja:Cells(2, 4):Select() // POSICIONA EL CURSO EN LA CELDA ESPECIFICADA(D8) PARA LEER COLUMNA( row, col / fila, col)
   nRows := oHoja:UsedRange:Rows:Count() // CANTIDAD LINEAS USADAS INCLUYENDO LA LINEA 1 QUE ES LA CABECERA

   FOR nRow := 2 TO nRows STEP 3
       cHoja := oHoja:Cells(nRow, 4):Value // NOMBRE DE LA HOJA Q DEBO LEER EN LIBRO RESUMEN
       nColI := oHoja:Cells(nRow, 9):Value // VALOR V2 A LLEVAR A LIBRO RESUMEN
       nColJ := oHoja:Cells(nRow, 10):Value // VALOR V3 A LLEVAR A LIBRO RESUMEN
*       nColI := Round( oHoja:Cells(nRow, 9):Value, 2 ) // VALOR V2 A LLEVAR A LIBRO RESUMEN
*       nColJ := Round( oHoja:Cells(nRow, 10):Value, 2 ) // VALOR V3 A LLEVAR A LIBRO RESUMEN
//
       AAdd( aLectura, {cHoja, nColI, nColJ, nFilGrabar} ) // CARGO EN ARRAY NOMBRES DE LAS HOJAS A BUSCAR EN RESUMEN Y VALORES A GRABAR
   NEXT

Thank you!

FiveTech Support Forums

Continue the discussion