Help needed on COM-Handle.
- Thread starter Hobby
- Start date
mrobles
Member
I always use this include file. (I made it)
With this you can
Open excel RUN abre_exel.
Close comunications RUN cierra_excel.
send data RUN pinta('text', reng, col).
adjust to lansdscape RUN acuesta.
change format, colors, borders, pagebreak, underline, delete a col, delete a row, change columns size, change margen, .... and some useful routines
Mrobles
With this you can
Open excel RUN abre_exel.
Close comunications RUN cierra_excel.
send data RUN pinta('text', reng, col).
adjust to lansdscape RUN acuesta.
change format, colors, borders, pagebreak, underline, delete a col, delete a row, change columns size, change margen, .... and some useful routines
Mrobles
ezequiel
Member
¡Muchas gracias desde Lima!
Yo tengo mis propios procedures para usar Excel, pero no me salía bien el poner bordes a todo un rango, he tomado tu procedure "bordes", lo he modificado y ha quedado muy bien.
Thank you from Lima!
I have my own Excel-use procedures, but didn't ran Ok putting borders, I took your procedure "bordes" and it goes very well.
My specific version (still not a procedure, but this will do Ok for today) :
/* Poner borders al rango */
DO ene = 1 TO 4:
chWorksheet:Range("A1:T" + TRIM(STRING(nTotalFilas))):Borders(ene):LineStyle = 1.
chWorksheet:Range("A1:T" + TRIM(STRING(nTotalFilas))):Borders(ene):Weight = 2. /* 2 delgada, -4138 gruesa como el cursor */
END.
Yo tengo mis propios procedures para usar Excel, pero no me salía bien el poner bordes a todo un rango, he tomado tu procedure "bordes", lo he modificado y ha quedado muy bien.
Thank you from Lima!
I have my own Excel-use procedures, but didn't ran Ok putting borders, I took your procedure "bordes" and it goes very well.
My specific version (still not a procedure, but this will do Ok for today) :
/* Poner borders al rango */
DO ene = 1 TO 4:
chWorksheet:Range("A1:T" + TRIM(STRING(nTotalFilas))):Borders(ene):LineStyle = 1.
chWorksheet:Range("A1:T" + TRIM(STRING(nTotalFilas))):Borders(ene):Weight = 2. /* 2 delgada, -4138 gruesa como el cursor */
END.