Estoy teniendo problemas al automatizar excel2010 desde vfp9 ,usando
excel.application ; pero el mismo prg con versiones anteriores de excel
funciona bien.
A alguien le pasó ???
Saludos.
From: francisco prieto
Sent: Wednesday, August 24, 2011 9:47 AM
To: GUFA List Member
Subject: [GUFA] dbf a xls
Oscar,
Si queres que pase el campo memo lo vas a tener que recorrer a mano con un scan.
Este es un ejemplo
oExcel=CREATEOBJECT("Excel.Application")
oExcel.Workbooks.Add &&adiciona libro a objeto
Select Tabla
scan
lnFila=Recno()
lnTotColumnas=fcount()
for lnCol=1 to lnTotColumnas
oExcel.Cells(lnFila,lnCol)=Evaluate(Field(lnCol))
next lnCol
endscan
oExcel.ActiveWorkbook.SaveAs("C:\ejemplo.xls")
oExcel.ActiveWorkbook.Close()
oExcel.Quit()
Release oExcel
oExcel=null
Saludos,
Pancho
Cordoba
El 24 de agosto de 2011 09:13, Oscar Obregón <[email protected]> escribió:
Buenas, alguien me puede pasar un ejemplo de como exportar un dbf a xls, el
dbf contiene campo memo
gracias!
Oscar Obregon
Analista en Sistemas
RMN SRL
Formosa Capital
