Clase TExcelScript de Viktor
Posted: Tue Jun 19, 2007 6:44 pm
Holas,
en lo que vengo viendo de mi problema con Excel, he bajado la clase de Viktor de las utilizadades del foro, del encabezado del PRG
* Clase TExcelScript v1.14 06-Feb-2004
*
* Esta Clase usa la Libreria Ole2 de José F. Giménez
*
* Autor: Víctor Manuel Tomas Díaz [Vikthor]
Espero que sea la ultima. Tengo los siguientes problemas, al inicial me da el error :
No está Excel Instalado en está PC
Tengo instalado el office 2003, pero igual pasa el mensaje y se puede trabajar.
No me funcionan los metodos :save() ni :saveas(), del error.log
Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:SAVE(0)
Called from: Texcels.prg => (b)TEXCELSCRIPT:TEXCELSCRIPT(132)
Called from: => TEXCELSCRIPT:SAVE(0)
Called from: test2.prg => MAIN(30)
Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:SAVEAS(0)
Called from: Texcels.prg => (b)TEXCELSCRIPT:TEXCELSCRIPT(133)
Called from: => TEXCELSCRIPT:SAVEAS(0)
Called from: test2.prg => MAIN(32)
El ejemplo es simplie
saludos
Marcelo
en lo que vengo viendo de mi problema con Excel, he bajado la clase de Viktor de las utilizadades del foro, del encabezado del PRG
* Clase TExcelScript v1.14 06-Feb-2004
*
* Esta Clase usa la Libreria Ole2 de José F. Giménez
*
* Autor: Víctor Manuel Tomas Díaz [Vikthor]
Espero que sea la ultima. Tengo los siguientes problemas, al inicial me da el error :
No está Excel Instalado en está PC
Tengo instalado el office 2003, pero igual pasa el mensaje y se puede trabajar.
No me funcionan los metodos :save() ni :saveas(), del error.log
Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:SAVE(0)
Called from: Texcels.prg => (b)TEXCELSCRIPT:TEXCELSCRIPT(132)
Called from: => TEXCELSCRIPT:SAVE(0)
Called from: test2.prg => MAIN(30)
Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:SAVEAS(0)
Called from: Texcels.prg => (b)TEXCELSCRIPT:TEXCELSCRIPT(133)
Called from: => TEXCELSCRIPT:SAVEAS(0)
Called from: test2.prg => MAIN(32)
El ejemplo es simplie
Alguna ayuda,
#include "FiveWin.ch"
static oExcel
FUNCTION main()
LOCAL cOrigen := cFilePath( GetModuleFileName( GetInstance() )) + "Test.xls", n,;
destino := cFilePath( GetModuleFileName( GetInstance() )) + "Test1.xls"
oExcel := TExcelScript():New()
oExcel:Open( cOrigen )
oExcel:Visualizar(.F.)
oExcel:Say( 1, 1, 10, "ARIAL", 10, .T., .T. )
oExcel:Say( 2, 1, 20, "ARIAL", 12, .T., .T. )
oExcel:Say( 3, 1, 30, "ARIAL", 14, .T., .T. )
// oExcel:Save()
oExcel:SaveAs( destino )
oExcel:End(.F.)
RETURN ( .T. )
saludos
Marcelo