GABRIEL
26 de Noviembre del 2003

hola.... necesito su ayuda, supongamos que tengo un formato en excel y necesito que al momento de hacer una consulta en foxpro me mande el resultado a esa hoja de excel, por ejemplo que los datos los posicione determinadas comlumnas.... se podr谩....??? de antemano muchas gracias....

Myriam Trujillo
26 de Noviembre del 2003

Te paso el sig codigo, espero te sea util...

Local oExcel, MiArchivoExcel, nCelda

Codigo=space(2)
Nombre=Space(25)

use "C:Archivos de programaMicrosoft Visual StudioVfp98Clientes" && abres la tabla o a consulta

MiArchivoExcel = "C:Prueba.Xls"
&&Ruta del archivo excel
oExcel = CreateObject("Excel.Application")
&&Creas un objeto
oExcel.Visible = .T.
&&es opcional, pues sirve para ver el libro excel o algo asi
oExcel.Workbooks.Open(MiArchivoExcel)
&&Abre el libro

nCelda = 1
Salir = 1
do while salir=1
append blank
Codigo=oExcel.Cells(nCelda,1).Value
Nombre=oExcel.Cells(nCelda,2).Value
replace CodCli with Codigo
replace NomCli with Nombre
nCelda = nCelda + 1 &&Avanzo a la siguiente L铆nea

if oExcel.Cells(nCelda,1).Value=-1
messagebox("Termine")
Salir=0
endif
enddo

oExcel.Workbooks.Close && Cierra el libro de excel
oExcel.Quit && Cierra Microsoft Excel
Release oExcel && Libera de la memoria el Objeto COM EXCEL

use


Lo que sigue es codigo que puede complementar el anterior

****** Esta parte del c贸digo utiliza un libro ya existente
Local oExcel, MiArchivoExcel
MiArchivoExcel = "C:Prueba.Xls"
oExcel = CreateObject("Excel.Application")
oExcel.Visible = .T.
oExcel.Workbooks.Open(MiArchivoExcel)
***********************************************************

**** Esta parte del c贸digo se utiliza para crear un libro de Excel
*Local oExcel
*oExcel = CreateObject("Excel.Application")
*oExcel.Visible = .T.
*oExcel.Workbooks.Add
********************************************************

oExcel.Cells(1,1).Value ="Prueba" && Coloca el Valor Prueba en la Celda A1 de nuestra hoja.
oExcel.Cells(1,1).Font.Bold = .T. && Coloca en negrita el valor de la celda
oExcel.Workbooks.Close && Cierra el libro de excel
oExcel.Quit && Cierra Microsoft Excel
Release oExcel && Libera de la memoria el Objeto COM EXCEL