Exportar datos a Microsoft Excel

Hola! Saludos expertos! Quisiera saber como exportar los datos que tengo en los campos de una tabla de foxpro a una hoja de excel sin utilizar COPY TO ... TYPE XLS. Quisiera saber si existe alguna manera de enviar los datos de la tabla a la hoja y que esta no se guarde automáticamente, sino que al dar click en el botón exportar, la hoja de excel se abra, se rellene con los datos de la tabla y que yo pueda disponer de ella para guardarla luego a mi gusto. De antemano muchas gracias! Saludos!
Respuesta
1
Este código hace exactamente lo que tu necesitas :
*!* GENERACION A MICROSOFT 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()
ENDWITH
xlsheet = xlapp.ActiveSheet
WITH xlsheet
 .COLUMNS("A:A").ColumnWidth = 22.00
 .COLUMNS("B:B").ColumnWidth = 15.00
 .COLUMNS("C:C").ColumnWidth = 15.00
ENDWITH
Fila = 1
xlsheet.Cells(Fila,1).Value = 'CONSULTA DE DATOS DE FACTURAS'
WITH xlsheet.Range("A1:D1")
 .Font.Bold = 'True'
 .Font.Size = '14'
 .WrapText = 'False'
 .Merge
ENDWITH
WITH xlsheet.Range("A3:A8")
 .Font.Bold = 'True'
ENDWITH
Fila = Fila + 2
xlsheet.Cells(Fila,1).Value = "Nro. De Egreso :"
xlsheet.Cells(Fila,2).Value = Id_Egreso
Fila = Fila + 1
xlsheet.Cells(Fila,1).Value = "Fecha De Egreso :"
xlsheet.Cells(Fila,2).Value = Fecha
Fila = Fila + 1
xlsheet.Cells(Fila,1).Value = "Nro de Factura :"
xlsheet.Cells(Fila,2).Value = Mo_Fact
Fila = Fila + 1
xlsheet.Cells(Fila,1).Value = "Cliente :"
xlsheet.Cells(Fila,2).Value = ALLTRIM(Cliente)
Fila = Fila + 1
xlsheet.Cells(Fila,1).Value = "Supervisor :"
xlsheet.Cells(Fila,2).Value = ALLTRIM(Vendedor)
Fila = Fila + 1
xlsheet.Cells(Fila,1).Value = "Total Factura :"
xlsheet.Cells(Fila,2).Value = TRANSFORM(Total,'@T 99,999.99')
WITH xlsheet.Range("A10:C10")
 .Font.Bold = 'True'
ENDWITH
Fila = Fila + 2
xlsheet.Cells(Fila,1).Value = 'CODIGO'
xlsheet.Cells(Fila,2).Value = 'TARJETA 1'
xlsheet.Cells(Fila,3).Value = 'TARJETA 2'
Fila = Fila + 1
SELECT cDatosFactura
SCAN
 xlsheet.Cells(Fila,1).Value = "'" + ALLTRIM(Codigo)
 xlsheet.Cells(Fila,2).Value = "'" + ALLTRIM(Tarjeta1)
 xlsheet.Cells(Fila,3).Value = "'" + ALLTRIM(Tarjeta2)
 Fila = Fila + 1
ENDSCAN
Fila = Fila + 1
xlsheet.Cells(Fila,1).Value = 'TOTAL CHIPS :'
xlsheet.Cells(Fila,2).Value = RECCOUNT()
xlsheet.Cells(Fila,1).Font.Bold = 'TRUE'
xlsheet.Cells(Fila,2).Font.Bold = 'TRUE'
Hola! Utilice el código que me diste y lo adecue a mis datos (tablas y campos). La parte que quería de abrir excel desde foxpro y guardar a mi antojo funciono perfectamente! Gracias! Pero tengo un problema. Al abrir excel, en la hoja no se exportan todos los datos. Te explico: tengo una tabla (master_productos) con 3 campos: código, descripción y medida. Existen muchos registros en la tabla. Al adecuar el código y abrir excel, solo pasan los datos del primer registro en la tabla. Quisiera saber si puedes ayudarme! Quisiera que los campos de la tabla pasaran a excel en columnas, manteniendo el orden y la estructura! Es decir, que pasen todos los datos a la hoja de excel algo así:
Código descripción medida
110                     lapiz                       caja
112                     borrador                 unidad
113                     cuaderno                caja
De ante mano muchas gracias!
De pronto me podrías enviar en un archivo de texto todo el código que usas para exportar los datos para ver si de pronto algo no estas haciendo bien, envialo a [email protected], saludos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como exportar un reporte de visual foxpro a excel

Necesito enviar a execel un reporte en visual foxpro, que se miren con la misma apariencia de visual
1 respuesta

Llevar contenido específico en un GRID a Excel

Tengo un formulario en donde agregué una Grid con información de una tabla con campos específicos, los cuales quiero exportar a Excel con los mismos campos que tengo en mi Grid en Foxpro. ¿Cómo sería el procedimiento? Tengo esto: select Actuaciones...
2 respuestas

Exportar a excel y abrir el archivo enseguida

Exporte todos los registro de una tabla a excel y quisiera que se abra el excel enseguida al darle clic al botón "generar excel", no se como se hace espero que alguien pueda ayudarme.
1 respuesta

Exportar a Excel una consulta o un cursor en VFP

Bueno quisiera saber si me podrían asistir con este pequeño problema con el que me eh topado, verán eh estado investigando como manipular objetos del tipo hojas de Excel con Visual Foxpro 9.0. Eh logrado avances pero ahora quisiera saber como puedo...
1 respuesta

Trabajar con cursores

Colabórenme por favor, ¿Se puede realizar un append from a un cursor? Como lo hago Ejm, Select Campo1, campo2, campo3 from tabla1 where condiciones, condiciones2 into cursor a1 Use tabla2 ¿Append from? Necesito adicionar el cursor a1
1 respuesta

Exportar datos de un MSFlexGrid a Excel o Word

Tengo un proyecto con una superconsulta dinámica en un MSFlexGrid1 pero necesito imprimirlo o exportarlo a excel o word Gracias Diego Zapata [email protected]
1 respuesta

Exportar de Access a Excel, ayuda

Quería hacerte una consulta para exportar de Access a Excel, encontré un código que me ayudo mucho, es el código entregado rodolfo1245, pero necesito hacer unas modificaciones que me tienen un poco complicado. El código es el siguiente: Private Sub...
2 respuestas

Usar los datos de un informe en excel

Quisiera a ver si me puedes indicar como se hace un enlace de access a excel, ya que tengo el siguiente problema, tengo una base de datos realizada en access la cual me da una serie de informes, y a su vez tengo realizado una hoja de excel lo que...
1 respuesta

Enviar Datos a Excel desde Visual Foxpro

Pero tengo otra inquietud, como hacer para trasladar información de dos tablas temporales (cursores) a un archivo de Excel. Por ejemplo: en el mismo archivo de Excel Hoja1 le traslado los datos de la tabla temporal1, Hoja2 le traslado los datos de la...
1 respuesta

Exportar Reporte a Excel

Acabo de dseñar un pequeño programa que gestiona reportes y quisiera saber si hay alguna manera de exportar el resultado de un reporte a una hoja de cálculo de excel. ¿Serías tan amable de orientarme?.
1 respuesta