Power Builder - enviar datos excel y dar formato a excel

 
Vista:

enviar datos excel y dar formato a excel

Publicado por gt (1 intervención) el 17/01/2004 17:50:24
Hola..

Podrian ayudarme, tengo el codigo para pasar datos desde PB a excel, pero no consigo centrarlos o alinerlos a mi gusto.
Tampoco puedo dar un formato a un conjunto de celdas.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:enviar datos excel y dar formato a excel (1)

Publicado por Oscar (1178 intervenciones) el 18/01/2004 16:43:11
Sabemos que para pasar un DW a Excel, se habla en:

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=73&texto=Power+Builder&n1=146920&n2=1&n3=1&n4=1&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Además, ya sabemos que existe una librería (pago), para exportar un DW a excel, con todo su formato en:

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=73&texto=Power+Builder&n1=151257&n2=0&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Pero ahora viene lo nuevo:
*¿Cómo nosotros mismos, podemos dar formato a Excel?
Estas instrucciones son el inicio de una recopilación en la Web, sobre los diferentes lenguajes que interactuan con Excel. En muchos casos, se adaptó a PB. Espero que sigamos incrementándolo.

Tomemos las variables:

xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
ll_r=Número de Fila
ll_c=Número de columna
Puden usar Range o Cells.
Pueden ver el ejmplo en:

http://www.powerbuilder.org/modules.php?name=News&file=article&sid=68&mode=&order=0&thold=0

En el post a continuación se indica cómo hacerlo.
// (CONTINÚA...)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:enviar datos excel y dar formato a excel (2)

Publicado por Oscar (1178 intervenciones) el 18/01/2004 16:49:23
//(CONTINUACIÓN)
Acá van las propiedades y métodos que pueden usar en Excel:

* Asignar valores:
//Cadenas
xlsub.Cells(ll_r,ll_c).Value = "Un texto cualquiera"
//Números
xlsub.Cells(ll_r,ll_c).Value = 10
//Obtener una suma en la celda 10:3
xlsub.Cells(10, 3).Formula = "=SUMA(C1:C9)"
//Fecha actual
xlsub.Cells(10, 4).Formula = "=AHORA()"

* Ancho Columnas:
xlsub.Columns("A:A").ColumnWidth = 10
xlsub.Columns("B:B").ColumnWidth = 15
xlsub.Columns("C:C").ColumnWidth = 30

* Formato de Fuente:
//Negrita a toda la columna A
xlsub.Range("A:A").Font.Bold = true
//Color texto al rango A1:C3
xlsub.Range("A1:C3").Font.Color = RGB(255,0,0)
//Tipo de letra:
xlsub.Range("A1:A3").Font.Name = "Times New Roman"
//Tamaño
xlsub.Range("A1:A3").Font.Size = 11

* Relleno de las celdas (Background)
xlsub.Range("A1:B2").Interior.Color = RGB(192,192,192)

* Alineación:
//1=Der; 2=Izq; 3=Centro
xlsub.Columns("A:A").HorizontalAlignment =2
//Creo que hay una alineación general

* Formato:
xlsub.Cells(ll_r, 3).Style = "Currency"
//Dos decimales
xlsub.Cells(ll_r, 3).NumberFormat = "#,##0.00"

* Combinar las celdas
xlsub.Range("A1:C1").Merge

//(CONTINUA...)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:enviar datos excel y dar formato a excel (3)

Publicado por Oscar (1178 intervenciones) el 18/01/2004 16:53:16
//(CONTINUACIÓN)
* Trazar líneas (una fila y tres columnas)
//Tres columnas y una sola fila
FOR i = 1 to 3
//Línea en los cuatro costados de la celda
FOR j = 1 to 4
xlsub.Cells(1,i).Borders(j).LineStyle = 1
NEXT
NEXT

* Borde alrededor de una celda
//Primer parámetro: Tipo de línea (1=Delgado; 2=Segmentado)
//Segundo parámetro: Grosor (1, 2, etc.)
//Terce parámetro: Color de línea
xlsub.Cells(1, 1).BorderAround(1, 2, 3)

* Colocar una imagen como fondo
xlsub.SetBackGroundPicture("c:\logo.bmp")

En fin, creo que existe mucho, mucho más. Por ejemplo configurar la página, imprimir sólo las primeras filas, seleccionar, copiar y pegar, etc. Pero mejor, ya no les canso más. Ojalá exista la posibilidad de publicarla en un documento. Lo importante es saber que es posible manipular Excel desde PB.

Un saludo desde Sucre - Bolivia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar