FoxPro/Visual FoxPro - EXPORTAR A EXCEL

XLSApp = Createobject("Excel.Application")

XLSApp.WorkBooks.add(a)

XLSheet = XLApp.ActiveSheet

FOR i=1 TO 4

XLSheet.Rows("1:1").Insert

ENDFOR

XLSApp.APPLICATION.activeworkbook.activesheet.cells(3,1).SELECT

XLSApp.APPLICATION.activeworkbook.activesheet.cells(3,1).value="Mi Reporte"

XLSApp.APPLICATION.activecell.FONT.NAME = "Verdana"

XLSApp.APPLICATION.activecell.FONT.SIZE = 16

XLSApp.APPLICATION.activecell.FONT.Bold = .T.

XLSApp.APPLICATION.activecell.FONT.Italic = .T.

XLSApp.APPLICATION.activecell.HorizontalAlignment=-4108

oExcel = CreateObject("Excel.Application")

if vartype(oExcel) != "O"

	* could not instantiate Excel object

	* show an error message here

	return .F.

endif

cFileXLS = Getfile("XLS,XLSX")

oWorkbook = oExcel.Application.Workbooks.Open(cFileXLS)