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 de publicomp
1
1
publicomp, Analista Programador de Sistemas de Aplicación Comercial en...
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.