FiveTech Software tech support forums

... de Ramon Avendaño Para pasar a excel con esta libreria yo hago: Para una fecha: @ nFila, nCol XLS SAY "Fecha:" + DTOC( Date() ) OF oXls Para un texto: @ nFila, nCol XLS SAY OemToAnsi( cText ) OF oXls Para un número, antes tengo que dar formato: DEFINE XLS FORMAT nFormat PICTURE ...

Holas

Has intentado ponerle la ruta completa al archivo para que lo guarde exactamente ahi

XLS oXLS FILE "d:\MisReport\Ventas_TPV.xls" AUTOEXEC

Suerte

... nOr( BORDER_TOP ) #define BORDER_DOWN nOr( BORDER_BOTTOM ) #DEFINE TRUE .T. #DEFINE FALSE .L. LOCAL nFormat,nFormat2,nFormat3,nFont1,nFont2,nFont3,oXLS local f local i DEFINE XLS FORMAT nFormat PICTURE '#,##0.00_);[Red](#,##0.00)' DEFINE XLS FORMAT nFormat1 PICTURE '0' DEFINE XLS FONT nFont1 NAME ...

Waldemar, Si ya tienes tu objeto de Excel, puedes usar estar instrucciones de Excel: nFils := oXls:oSheet:UsedRange:Rows:Count() //<--- No de Filas o registros nCols := oXls:oSheet:UsedRange:Columns:Count() //<--- No de Columas Yo lo utilizo, usando la clase TExcelScrip() ...

Waldemar, Si ya tienes tu objeto de Excel, puedes usar estar instrucciones de Excel: nFils := oXls:oSheet:UsedRange:Rows:Count() //<--- No de Filas o registros nCols := oXls:oSheet:UsedRange:Columns:Count() //<--- No de Columas Yo lo utilizo, usando la clase TExcelScrip() ...

... Compañeros del foro, y a quien use la clase FileXls. Creo correctamente un archivo XLS con esta clasey logicoal final la instruccion es ENDXLS oXls ---> oXls:End() y lo abre automaticamente, pero como este lo uso temporal delspues del ENDXLS: cTmpXls:=NombreTmp('XLS') nombre temporal XLS ...

... nOr( BORDER_TOP ) #define BORDER_DOWN nOr( BORDER_BOTTOM ) #DEFINE TRUE .T. #DEFINE FALSE .L. LOCAL nFormat,nFormat2,nFormat3,nFont1,nFont2,nFont3,oXLS local f local i DEFINE XLS FORMAT nFormat PICTURE '#,##0.00_);[Red](#,##0.00)' DEFINE XLS FORMAT nFormat1 PICTURE '0' DEFINE XLS FONT nFont1 NAME ...

... the protection, the cell is pretected but i can't change the colors or size of other cells . How to enable it ? Thanks . Here is the code : oxls := TOleAuto():New("Excel.Application") oxls:WorkBooks:Open("test.XLS") oBook := oxls:Get( "ActiveWorkBook") oSheet ...

oxls:WorkBooks:Open("G:\tables\MACRODMEDI.XLS") oBookm := oxls:Get( "ActiveWorkBook") oxls:WorkBooks:Open("myxlsfile.xls") oBook := oxls:Get( "ActiveWorkBook") oSheet := oxls:Get( "ActiveSheet" ...

... : I write my macro in a different xls file . I open it first,then i open the good xls file . After that i execute the macro from the first xls . oxls:WorkBooks:Open("G:\tables\MACRODMEDI.XLS") oBookm := oxls:Get( "ActiveWorkBook") oxls:WorkBooks:Open("myxlsfile.xls") ...

Hello, I want to unprotect all a sheeht and onlly protect 2 cells and the activate the protection of the sheet How to ? Syntax ? oxls := TOleAuto():New("Excel.Application") oxls:visible:=.T. oxls:WorkBooks:Open("c:\test\test.xls") oBook := oxls:Get( "ActiveWorkBook") ...

oxls:Run("FILE2.xls!macro1") works.
But for me the macro is working only after I open the xls file containing the macro.

... have an excel sheet that is open and i want to execute a macro that is saved in an other xls file . How to : ?? What is the syntax to Run a macro oxls := TOleAuto():New("Excel.Application") * Ouvre lefic3 a partir de Temp oxls:WorkBooks:Open("main.xls") * oBook := oxls:Get( ...

Compañeros:

Estoy migrando un listado a EXCEL utilizando la clase TFILEXLS.... Hasta ahora todo perfecto.

Pero me surge una duda: ¿hay opcion de poder ocutar la lineas de division de las celdas en la Hoja de calculo?

algo así como oxls:HideCell:=.t.

Un saludo.
LORENZO

... // TSalPrinter #include "FileXLS.ch" #include "FiveWin.ch" #include "Report.ch" CLASS TSalPrinterXLS DATA oPrn DATA oXls DATA cFile DATA aFont DATA aFormat DATA nRow METHOD New( ) CONSTRUCTOR METHOD Save() // METHOD StartPage() // METHOD EndPage() METHOD Stabilize() ...