Generar Plantilla excel através de Genexus
Publicado por Maria Noel (1 intervención) el 02/07/2015 15:52:00
Buenos dias
Tengo un problema que no logro asignar una plantilla a un excel en genexus, lei un poco y generando un archivo
.xlt en excel se puede asignar con &ExcelDocument.Template ="./static/plantilla.xlt" esta es la ruta en tomcat donde
dejo el archivo de la plantilla.
dejo el código el cual intento generar el excel:
Tengo un problema que no logro asignar una plantilla a un excel en genexus, lei un poco y generando un archivo
.xlt en excel se puede asignar con &ExcelDocument.Template ="./static/plantilla.xlt" esta es la ruta en tomcat donde
dejo el archivo de la plantilla.
dejo el código el cual intento generar el excel:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
&ExcelDocument.AutoFit = 0
&ExcelDocument.Template = '/static/plantilla.xlt'
&Random = Random() * 10000
&Filename = !"EjemploPruebaPlantilla" + &Random.ToString().Trim() + !".xlsx"
&ExcelDocument.Open(&Filename)
Do 'CheckStatus'//&ExcelDocument.Clear()
&CellRow = 1
&FirstColumn = 1
&cant = 0
&CellRow += 1
&cant += 1
&ExcelDocument.Cells(3, &FirstColumn + 0).Text = "Dato1"
&ExcelDocument.Cells(4, &FirstColumn + 1).Text = "Dato2"
&ExcelDocument.Cells(5, &FirstColumn + 2).Text = "Dato3"
&ExcelDocument.Cells(6, &FirstColumn + 3).Text = "Dato4"
&ExcelDocument.Save()
Do 'CheckStatus'&ExcelDocument.Close()
Sub 'CheckStatus'If (&ExcelDocument.ErrCode <> 0)
&Filename = ""
&ErrorMessage = &ExcelDocument.ErrDescription
&ExcelDocument.Close()
Return
Endif
Endsub
Valora esta pregunta
0