Help with excel

[wartiaga]

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

Thanks in advance.

[Jeff Barnes]

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

[joseluisysturiz]

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

Thanks in advance.

Pequeño sample...saludos...

Code: Select all  Expand view

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
 

[wartiaga]

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

Thank you! I will try.

[wartiaga]

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

Thanks in advance.

Pequeño sample...saludos...

Code: Select all  Expand view

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!