Trato de pasar un DBF a Excel. La clase Filexls es la que me ha sido mas fácil y cómoda. (FWH1608)
No he logrado que tome en cuenta los formatos y las distintas letras.
Alguien tendría una sugerencia.
Dejo el código que si funciona, sin negritas y nada que deseo poner.
Saludos y gracias.
Code: Select all | Expand
LOCAL oXLS XLS oXLS FILE ".\Reporte.xls" AUTOEXEC DEFINE XLS FORMAT nFormat PICTURE '#,##0.00' DEFINE XLS FORMAT nFormat2 PICTURE '#0' DEFINE XLS Format nFormat3 PICTURE "dd-dd-yyyy" DEFINE XLS FONT nFont1 NAME "VERDANA" HEIGHT 20 BOLD DEFINE XLS FONT nFont2 NAME "TAHOMA" HEIGHT 12 DEFINE XLS FONT nFont3 NAME "TAHOMA" HEIGHT 14 @ 1,2 XLS SAY "LISTADO DE CUENTAS" FONT nFont1 OF oXls @ 1,4 XLS SAY "Fecha:" + DTOC( Date() ) OF oXls // CABECERAS nLen := len( oBrExcel:aCols ) nCol := 1 nFila := 3 XLS COL 1 WIDTH 14 OF oXLS @ nFila,1 XLS SAY "Fecha" BORDER FONT nFont1 OF oXls XLS COL 2 WIDTH 50 OF oXLS @ nFila,2 XLS SAY "Detalle" BORDER FONT nFont1 OF oXls XLS COL 3 WIDTH 20 OF oXLS @ nFila,3 XLS SAY "Importe" BORDER FONT nFont1 OF oXls XLS COL 4 WIDTH 20 OF oXLS @ nFila,4 XLS SAY "Saldo " BORDER font NfONT1 OF oXls nCol := 1 nFila++ nFila++ // DATOS DbSelectArea( DBGRAL ) (DBGRAL)->(dbGoTop()) while !(DBGRAL)->(Eof()) cText := oBrExcel:aCols[1]:Value() @ nFila, nCol XLS SAY cText FORMAT nFormat3 OF oXls ncol++ cText := oBrExcel:aCols[3]:Value() @ nFila, nCol XLS SAY cText FORMAT nFormat OF oXls ncol++ cText := oBrExcel:aCols[4]:Value() @ nFila, nCol XLS SAY cText FORMAT nFormat2 OF oXls ncol++ cText := oBrExcel:aCols[5]:Value() @ nFila, nCol XLS SAY cText FORMAT nFormat2 OF oXls // ncol++ nfila++ nCol:=1 (DBGRAL)->(dbskip()) end While nFila++ ENDXLS oXLSReturn(.F.)