Hi, how i can create a xls ou xlsx file with many sheets and put values?
Thanks in advance.
Help with excel
- Jeff Barnes
- Posts: 912
- Joined: Sun Oct 09, 2005 1:05 pm
- Location: Ontario, Canada
- Contact:
Re: Help with excel
Have a look here: http://wiki.fivetechsoft.com/doku.php?id=ole_excel
Thanks,
Jeff Barnes
(FWH 12.01, xHarbour 1.2.1, Bcc582)
Jeff Barnes
(FWH 12.01, xHarbour 1.2.1, Bcc582)
- joseluisysturiz
- Posts: 2024
- Joined: Fri Jan 06, 2006 9:28 pm
- Location: Guatire - Caracas - Venezuela
- Contact:
Re: Help with excel
Pequeño sample...saludos...wartiaga wrote:Hi, how i can create a xls ou xlsx file with many sheets and put values?
Thanks in advance.
Code: Select all
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!
Gracias a mi Dios ante todo!
Re: Help with excel
Thank you! I will try.Jeff Barnes wrote:Have a look here: http://wiki.fivetechsoft.com/doku.php?id=ole_excel
Re: Help with excel
Thank you!joseluisysturiz wrote:Pequeño sample...saludos...wartiaga wrote:Hi, how i can create a xls ou xlsx file with many sheets and put values?
Thanks in advance.
Code: Select all
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