Un ejemplo mínimo. Busca en el blogspot de la comunidad que hay muy buen material.
PROCEDURE exp_to_excel
LPARAMETERS tcCursor
LOCAL loExcel as Object,;
loBook as Object,;
loSheet as Object
loExcel = CREATEOBJECT("Excel.Application")
loBook = loExcel.workbooks.ADD()
loSheet = loExcel.ActiveSheet
WAIT "Enviando Datos" WINDOW AT 20,50 NOWAIT
SELECT (tcCursor)
lnFields = AFIELDS(laFields,tcCursor)
lnRow = 0
SCAN
lnRow = m.lnRow + 1
FOR lnCol = 1 TO FCOUNT(tcCursor)
lcValor = EVALUATE(tcCursor+"."+FIELD(lncol))
DO CASE
CASE laFields[lnCol,2]="D" AND EMPTY(lcValor)
lcValor = null
CASE laFields[lnCol,2]="T"
lcValor = TTOC(lcvalor)
CASE laFields[lnCol,2]="L"
lcValor = TRANSFORM(lcValor)
ENDCASE
loSheet.Cells(lnRow,lnCol).value = m.lcValor
NEXT
ENDSCAN
loBook.SaveAs(JUSTSTEM(tcCursor))
WAIT CLEAR
loExcel.visible=.t.Saludos Pedro, no se si te sirva pero esta clase a mi me sirve para exportar a XLSX, la he usado en VFP 8 y 9 y me tabaja bien, no se si sirve para VFP 7, intentalo para ver.
--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este tema, visita https://groups.google.com/d/topic/mundovisualfoxpro/YH1DnNfb4S8/unsubscribe.
Para anular la suscripción a este grupo y a todos sus temas, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.
Visita: http://angaritapedroantonio.googlepages.com/
Atte.
PEDRO ANTONIO ANGARITA ROJAS
Sr. SYSTEMS ENGINEER GRAINGER COLOMBIA IT
PROJECT MANAGEMENT PROFESSIONAL (PMP, PMI) CERTIFIED
TOGAF CERTIFIED LEVEL I & II
ESPECIALISTA EN INGENIERÍA DE SOFTWARE UDISTRITAL FCO JOSÉ DE CALDAS
INGENIERO DE SISTEMAS UNAD CEAD JOSÉ ACEVEDO Y GOMEZ
ADMINISTRADOR INDUSTRIAL UPTC FACULTAD SECCIONAL DUITAMA
Pedro,
Deberías intentar usar la clase EXCELXML es muy sencilla y puede usarse en cualquier EXCEL
Su mecánica es muy simple, ya que convierte desde VFP al lenguaje y datos XML.
Ya estando en XML puede ser traducido por cualquier EXCEL
Yo lo uso en todos mis sistemas y no tengo problemas
Saludos
No se si corra en VFP 7.0 pero considero que si, deberías probarlo:
https://vfpx.codeplex.com/wikipage?title=ExcelXML&referringTitle=Home