Programación General > Visual FoxPro

 Re: exportar a excel

(1/1)

mrrobert:
Hola a todos.
Miren, tengo un sistema que hice con VFP 6, tomando la bases de datos generada en genexus en el sistema original.
En una grilla muestro los registros resultados de una consulta.
Ahora, estos registros necesito exportarlos a Excel.

Como lo hago y cual es el codigo?.
Espero puedan ayudarme.

Chau!:D

Plinio:
Si lo que necesitas es exportar tablas desde visual foxpro a Excel usa la opción "Exportar"desde el Menú Archivo.

paoluccij:
UNA VEZ ABIERTA LA TABLA CON LOS DATOS A EXPORTAR UTILIZA ESTE COMANDO

EXPOR TO C:NOMBRE_ARCHIVO TYPE XLS

SALUDOS
PAOLUCCI

jls:
Prueba con esto :
*************************************

OleXls = CreateObject("Excel.Application")  && Iniciar EXCEL

OleXls.Workbooks.Add   && Crear Libro

&&& El libro se crea por defecto con tres hojas
&& Con esto creamos mas hojas

OleXls.Sheets.add   && Añadir hojas al libro
OleXls.Sheets.add
OleXls.Sheets.add

OleXls.Sheets.Item(1).Name = "Trimestre1"  && Nombre de la Hoja 1

OleXls.Sheets.Item(1).Cells(1,1).Value = "Enero"        && Asignar datos a las
OleXls.Sheets.Item(1).Cells(1,2).Value = "Febrero"
OleXls.Sheets.Item(1).Cells(1,3).Value = "Marzo"
OleXls.Sheets.Item(1).Cells(2,1).Value = 101
OleXls.Sheets.Item(1).Cells(2,2).Value = 102
OleXls.Sheets.Item(1).Cells(2,3).Value = 103


OleXls.Sheets.Item(2).Name = "Trimestre2"

OleXls.Sheets.Item(2).Cells(1,1).Value = "Abril"
OleXls.Sheets.Item(2).Cells(1,2).Value = "Mayo"
OleXls.Sheets.Item(2).Cells(1,3).Value = "Junio"
OleXls.Sheets.Item(2).Cells(2,1).Value = 201
OleXls.Sheets.Item(2).Cells(2,2).Value = 202
OleXls.Sheets.Item(2).Cells(2,3).Value = 203


OleXls.Sheets.Item(3).Name = "Trimestre3"

OleXls.Sheets.Item(3).Cells(1,1).Value = "Julio"
OleXls.Sheets.Item(3).Cells(1,2).Value = "Agosto"
OleXls.Sheets.Item(3).Cells(1,3).Value = "Septiembre"
OleXls.Sheets.Item(3).Cells(2,1).Value = 301
OleXls.Sheets.Item(3).Cells(2,2).Value = 302
OleXls.Sheets.Item(3).Cells(2,3).Value = 303


OleXls.Sheets.Item(4).Name = "Trimestre4"

OleXls.Sheets.Item(4).Cells(1,1).Value = "Octubre"
OleXls.Sheets.Item(4).Cells(1,2).Value = "Noviembre"
OleXls.Sheets.Item(4).Cells(1,3).Value = "Diciembre"
OleXls.Sheets.Item(4).Cells(2,1).Value = 401
OleXls.Sheets.Item(4).Cells(2,2).Value = 402
OleXls.Sheets.Item(4).Cells(2,3).Value = 403



OleXls.Sheets.Item(5).Name = "Trimestre5"

OleXls.Sheets.Item(5).Cells(1,1).Value = "Pepe"
OleXls.Sheets.Item(5).Cells(1,2).Value = "Marcos"
OleXls.Sheets.Item(5).Cells(1,3).Value = "Ana"
OleXls.Sheets.Item(5).Cells(2,1).Value = 501
OleXls.Sheets.Item(5).Cells(2,2).Value = 502
OleXls.Sheets.Item(5).Cells(2,3).Value = 503


OleXls.Sheets.Item(6).Name = "Trimestre6"

OleXls.Sheets.Item(6).Cells(1,1).Value = "Papa"
OleXls.Sheets.Item(6).Cells(1,2).Value = "Mama"
OleXls.Sheets.Item(6).Cells(1,3).Value = "Tia"
OleXls.Sheets.Item(6).Cells(2,1).Value = 601
OleXls.Sheets.Item(6).Cells(2,2).Value = 602
OleXls.Sheets.Item(6).Cells(2,3).Value = 603

OleXls.ActiveWorkbook.Saveas("c:\tmp\prueba.xls")  && Guardar Hoja de Calculo

OleXls.quit

Navegación

[0] Índice de Mensajes