Autor Tema: Re: exportar a excel (Leído 10598 veces)

mrrobert · « **en:** Martes 25 de Febrero de 2003, 23:34 »

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 · « **Respuesta #2 en:** Jueves 3 de Abril de 2003, 02:54 »

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