FiveTech Software tech support forums

... desde Excel, hice lo q me pedistes el tema esta es que esta sentencia debe ser completa de esa forma de lo contrario no me funciona XLS oFileXLS FILE "reporte.xls" AUTOEXEC Si elimino autoexec no se ejecuta y si elimino Ofilexls , sale error si existe otro camino para generar ...

Hola Amigos de Five tech #Include "fivewin.ch" #Include "tcbrowse.ch" #include "FileXLS.ch" static oFileXLS DEFINE XLS FONT nFont2 NAME "Times New Roman" HEIGHT 10 UNDERLINE BOLD CTITUL:=CTITUL+".XLS" XLS oFileXLS FILE &CTITUL AUTOEXEC ...

... espero sus ayuda, gracias de antemano #Include "fivewin.ch" #Include "tcbrowse.ch" #include "FileXLS.ch" static oFileXLS DEFINE XLS FONT nFont2 NAME "Times New Roman" HEIGHT 10 UNDERLINE BOLD CTITUL:=CTITUL+".XLS" XLS oFileXLS FILE &CTITUL ...

... fila++ PageEnd() ENDPRINT RETURN NIL y por ultimo... la misma historia por excel... Function Exe_Hora() local oFileXLS Local lIni := .t., nReg := RecNo() local nFormat1, nFormat2 local nFont1, nFont2, nFont3, nFont4 Local nRow, nRowActividad DEFINE XLS FONT ...

... clase estan Ok pues revise las variables al momento de invocar la funcion : @ nCtl,12 XLS FORMULA _sum(nCtc,12, nCta-1,12) FORMAT nFon BORDER OF oFileXLS Y el Metodo Formula de la Clase FileXls recibe bien los valores, lo verifique, esta al momento de grabar la formula por parte de la clase, ...

... FACTURA Local nPENDIENTE := 0 // PENDIENTE Local nACUENTA := 0 // PAGOS A CUENTA Local nSALDO := 0 // SALDOS * variables de la clase FileXLS Local oFileXLS local nFormat1 local nFont1, nFont2, nFont3, nFont4 * Variables para filas y columnas Local nRow, nCol, N := 1 * * Formato para numeros DEFINE ...

... alineacion de igual forma, aqui les dejo un ejemplo de un programa que lista un maestro de empleados, ojala les sirva : USE C:\DATA1\RGEN1 PUBLIC oFileXLS,oDlg, oLbx, oFont, oMeter, nMeter,oExcel, oHoja, oBrw DEFINE FONT oFont NAME "Arial" SIZE 0,-11 PUBLIC lIni := .t., nReg := RecNo(), ...

... razón? ¿Perdiste todo. CH archivos. Cuando he leído el código de ejemplo que envió por encima en este hilo parece que hay una. CH archivo XLS oFileXLS FILE "MAESTRO1.XLS" / / AUTOEXEC ¿Puede mostrarme una muestra PRG en Oop Sintaxis para, por ejemplo: oXls: = TFileXls ():New("C:\Prueba.xls") ...

Francisco: Un pequeño ejemplo del uso de filexls SELECT A USE RGEN1 PUBLIC oFileXLS,oDlg, oLbx, oFont, oMeter, nMeter,oExcel, oHoja, oBrw DEFINE FONT oFont NAME "Arial" SIZE 0,-11 PUBLIC lIni := .t., nReg := RecNo(), cActividad := "" PUBLIC ...

Otra alternativa:

cNombreExcel := "sueldos.xls"
Xls oFileXLS File (cNombreExcel) Autoexec

Saludos

horacio wrote:cNombreExcel := "sueldos.xls"
Xls oFileXLS File cNombreExcel Autoexec NO FUNCIONA
Xls oFileXLS File "sueldos.xls" Autoexec SI FUNCIONA

Y si pruebas con las "macros"...

Xls oFileXLS File &cNombreExcel Autoexec

... a los archivos utilizo una variable y no funciona. Si el nombre es un literal no hay problemas Por Ejemplo cNombreExcel := "sueldos.xls" Xls oFileXLS File cNombreExcel Autoexec NO FUNCIONA Xls oFileXLS File "sueldos.xls" Autoexec SI FUNCIONA Alguna idea ?? Gracias.

oFileXLS:Get( "ActiveSheet" ):Rows( "2:4" ):Interior:Color := RGB( 244, 249, 198) Es lo que me imaginaba, pymsoft, lo usas con ActiveX. En las maquinas que correra la utilidad que estoy haciendo NO tiene Office, de hay use ...

... := XLSFormat( <cPicture> ) DEFINE XLS FORMAT n4SinDecimales "###0" y despues usar: @ Indice, 4 XLS SAY val(substr(cLinea, 19,4)) OF oFileXLS FORMAT n4SinDecimales siendo n4SinDecimales una variable numérica de tu función. Saludos Carlos G. Es que como tengo "tantos formatos" no me ...

No uso esta clase, pero prueba asi:


oFileXLS:Get( "ActiveSheet" ):Rows( "2:4" ):Interior:Color := RGB( 244, 249, 198)


Saludos