Progress - manipulacion de excel desde progress

 
Vista:

manipulacion de excel desde progress

Publicado por Guillermo (2 intervenciones) el 06/03/2003 19:43:22
Como puedo manipular una hoja de excel desde progress, necesito ademas de exportar los datos a excel, saber como dar formato a letra, tamaño colores si puedo manipular bordes,etc
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:manipulacion de excel desde progress

Publicado por Gustavo Ferrer (115 intervenciones) el 10/03/2003 15:58:52
Progress maneja unos ejemplo en c:\dlc\scr\samples\activex\excelgra\oleauot.p

y las opciones de

chGrafico = chExcel:Charts:ADD().
chGrafico:NAME = "Grafico".
chGrafico:Activate().
chGrafico:SetSourceData (chHoja:Range(rango), 2).
chGrafico:HasDataTable = TRUE.
chGrafico:HasLegend = FALSE.
chGrafico:DataTable:FONT:SIZE = 8.

titulo es: chGrafico:HasTitle = TRUE.
chGrafico:ChartTitle:Caption = "VENTAS " + CHR(13) + "(DOLARES)".

chGrafico:PageSetup:LeftHeader = "NOMBRE DE LA EMPRESA".
chGrafico:PageSetup:RightHeader = STRING(FECHA_Desde,"99/99/9999") + " - " + STRING(FECHA_hasta,"99/99/9999").

escala: chGrafico:Axes(2, 1):MaximumScale = 100. ó
chGrafico:Axes(2, 1):MinimumScale = 0.

nombre de la barra: chGrafico:SeriesCollection(celda):NAME = "nombre"
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:manipulacion de excel desde progress

Publicado por Gustavo Ferrer (115 intervenciones) el 10/03/2003 16:33:15
Para manejar los formatos:

chHoja:Range(vlsrango):FONT:Bold = TRUE. /*Negrita */

los bordes

chHoja:Range(vlsrango):Borders:LineStyle = 1. /* Estilo continuo */
chHoja:Range(vlsrango):Borders(12):Weight = 1. /* Border internos horizontales, línea fina */
chHoja:Range(vlsrango):Borders(11):Weight = 1. /* Border internos verticales, línea fina */
chHoja:Range(vlsrango):Borders(7):Weight = 2. /* Borde izquierdo, línea normal */
chHoja:Range(vlsrango):Borders(8):Weight = 2. /* Borde superior, línea normal */
chHoja:Range(vlsrango):Borders(10):Weight = 2. /* Borde derecho, línea normal */
chHoja:Range(vlsrango):Borders(9 ):Weight = 2. /* Borde inferior, línea normal */

/* Ajusta el reporte para que quepa en una página de ancho */
chHoja:PageSetup:Zoom = FALSE.
chHoja:PageSetup:FitToPagesTall = FALSE.
chHoja:PageSetup:FitToPagesWide = 1.
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:manipulacion de excel desde progress

Publicado por Gustavo Ferrer (115 intervenciones) el 10/03/2003 16:36:49
Para manejar los formatos:

chHoja:Cells(fila, columna):NumberFormat = "##.###.###.##0;[Rojo]-##.###.###.##0".
chHoja:Cells(fila, columna):HorizontalAlignment = -4152.

chHoja:Cells(fila, columna):NumberFormat = "#.##0,00;[Rojo]-#.##0,00".
chHoja:Cells(fila, columna):HorizontalAlignment = -4152.

chHoja:Range(vlsrango):FONT:Bold = TRUE. /*Negrita */

los bordes

chHoja:Range(vlsrango):Borders:LineStyle = 1. /* Estilo continuo */
chHoja:Range(vlsrango):Borders(12):Weight = 1. /* Border internos horizontales, línea fina */
chHoja:Range(vlsrango):Borders(11):Weight = 1. /* Border internos verticales, línea fina */
chHoja:Range(vlsrango):Borders(7):Weight = 2. /* Borde izquierdo, línea normal */
chHoja:Range(vlsrango):Borders(8):Weight = 2. /* Borde superior, línea normal */
chHoja:Range(vlsrango):Borders(10):Weight = 2. /* Borde derecho, línea normal */
chHoja:Range(vlsrango):Borders(9 ):Weight = 2. /* Borde inferior, línea normal */

/* Ajusta el reporte para que quepa en una página de ancho */
chHoja:PageSetup:Zoom = FALSE.
chHoja:PageSetup:FitToPagesTall = FALSE.
chHoja:PageSetup:FitToPagesWide = 1.

/* Repite la cabecera y los titulos de columna para todas las páginas del reporte *%
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