sábado, 11 de octubre de 2014

Excel Document (Genexus)


Ejemplo:

Event 'CrearExcel'
    msg('Cargando Excel...' ,nowait)
    &archivo = "C:\Clientes" //doy la ruta donde se guardara el excel
    &Ruta = trim(&archivo) + '.xls' //se da trim para no tener problemas
    &Planilla.Open(&RUTA) //planilla es una variable de tipo excel document
    &Planilla.SelectSheet("Ordenes de Trabajo")
    &Planilla.Clear()
    &Fila=1 //fila es una variable numerica
    &Planilla.Cells(&Fila,1).text = 'Customer Name' //aka se le da la posision en hoja excel
    &Planilla.Cells(&Fila,2).Text = 'Total'  //lo mismo
    &Col = 1
        do while &Col < 3
            &Planilla.Cells(&Fila,&Col).Bold = 1
            &Planilla.Cells(&Fila,&Col).Color = 3
            &Col = &Col + 1
        enddo
        &Fila = 2
        for each line
            &Planilla.Cells(&Fila,1).text = &CustomerName //&AnalisDCor
            &Planilla.Cells(&Fila,2).Number = &Total //dtoc(OrTra2Fech)
            msg(str(&Regis) ,nowait)
            &Regis = &Regis + 1
            &Fila = &Fila + 1
        endfor
        msg('',nowait)
        &Planilla.Show()  //tengo ke abrir el documento excel ya ke solo lo guarda
EndEvent  // 'CrearExcel'


para ubicarte en cada una de las hojas se usa la siguiente sentencia:
&Mi_XLS.SelectSheet("Hoja1")

3 comentarios:

  1. Hola como haces en gx16 para abrir la ventana(abrir archivo) para buscar un archivo excel en la pc y abrilo?

    ResponderEliminar
  2. Puedes utilizar el uc llamado FileUpload

    ResponderEliminar
  3. Que cambios debo hacer para exportar a un excel desde un boton solo el valor de una serie de Variables y que se escriban una debajo de la otra?

    ResponderEliminar