Exportar a excel

Hola.
Mira, en una grilla muestro unos registros que son el resultado de una consulta.
Ahora, estos registros necesito exportarlos a excel.
Como lo hago?
Espero puedas ayudarme.
Chau!

1 Respuesta

Respuesta
1
Lamento no haber podido escribir antes. Revisa este ejmplo de una consulta que exporta a excel en uno de mis formularios.. Espero te sirva.
** Abro el objeto Aplicación Excel
**
LError = on("error")
on error xlapp = null
xlapp = getobject ("Excel Application")
on error &LError
if isnull(xlapp)
xlapp = createobject("Excel.Application")
endif
with xlapp
.visible = "True"
.DisplayAlerts="False"
.Workbooks.add()
with .sheets(1)
.select
**Le pongo nombre a la hoja
.name="Certificado de
Análisis"
endwith
endwith
* Activa la hoja en excel
xlsheet = xlapp.activesheet
with xlsheet.range("b2:b19")
.Font.Bold = "True"
.font.colorindex()
endwith
*Establezco el ancho de las columnas
WITH xlsheet
.Columns("B:B").ColumnWidth = 16.00
endwith
* Columns("B:B").ColumnWidth = 15.29
*
* Selecciona celda
* Los parametros indican fila y columna
* Etiquetas del titulo
xlsheet.cells(2,2).value = "CERTIFICATE OF ANALYSIS"
xlsheet.cells(2,2).Font.size = "15"
* xlsheet.cells(2,2).Font.Bold = "CERTIFICATE OF ANALYSIS"
xlsheet.cells(5,2).value = "SHIPPED TO"
xlsheet.cells(10,2).value = "VESSEL"
xlsheet.cells(11,2).value = "DATE"
xlsheet.cells(12,2).value = "CONTAINER"
xlsheet.cells(13,2).value = "SEAL"
xlsheet.cells(14,2).value = "INVOICE"
xlsheet.cells(15,2).value = "ORDER"
if allt(guia_exp.char_gex) <>""
xlsheet.cells(16,2).value = "CHARD"
endif
xlsheet.cells(17,2).value = "PRODUCT"
if m.presentacion = "MASTERS"
xlsheet.cells(18,2).value = "MASTER BOX"
else
xlsheet.cells(18,2).value = "BAG WEIGHT"
endif
xlsheet.cells(19,2).value = "NET WEIGHT"
* Datos de Titulo
xlsheet.cells(5,3).value = clie_ter.nomb_cli
*
Hay lineas que por el espacio de respuesta se cortan, trata de copiar este ejemplo y arreglar el codigo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas