[GUFA] dbf a xls

Wed, 24 Aug 2011 05:49:02 -0700 

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
>

Responder a