Manipular Excel

********************************************
* ExcelTest
*
* Propósito : Pruebas de Manipulación de
* Excel desde VFP
*
* Alejandro Gómez
*
********************************************

&& Declaramos el objeto que vamos a usar
LOCAL oExcelBook

&& Creamos una instancia de Excel
oExcelBook = CREATEOBJECT("Excel.application")

&& Muestra Excel
oExcelBook.Visible = .T.

&& Agrega un libro de trabajo
oExcelBook.Workbooks.Add

* las celdas son en el formato ( x,y ) en
* donde "x" es igual a los renglones de
* Excel y "y" a las columnas de tal manera
* si *quieres hacer referencia a la celda C1
* las *coordenadas para esta serán (3,1)

&& Escribe la leyenda prueba en A1
oExcelBook.Cells(1,1).Value = "Prueba"

&& Cambiamos en tipo de letra de A1
oExcelBook.Cells(1,1).Font.name = "Tahoma"

&& y lo establecemos en negritas
oExcelBook.Cells(1,1).Font.Bold = .T.

&& Escribe el número 5 en A2
oExcelBook.Cells(1,2).Value = 5

&& Escribe el número 10 en B2
oExcelBook.Cells(2,2).Value = 10

&& Escribe una linea doble en C2

oExcelBook.Cells(3,2).Value = "'=========="

&& Escribe el numero 15 en D2
oExcelBook.Cells(4,2).Value = 15

&& establece en negrita la linea doble de C2
oExcelBook.Cells(3,2).Font.Bold = .T.


oExcelBook.Cells(6,1).Value = "Libro Creado
desde Visual Foxpro"

&& that´s me, jejeje
oExcelBook.Cells(7,1).Value = "Alejandro
Gómez Torres"

&& para cerrar el libro de excel
oExcelBook.WorkBooks.Close

&& para salir de excel
oExcelBook.Quit

&& por etica no se te olvide liberar la
instancia a excel
RELEASE oExcelBook