... de relleno. ¿Alguien me puede facilitar un ejemplo? Esto es lo que estoy generando: oExcel := TOleAuto():New("Excel.Application") oWorkBook := oExcel:WorkBooks:Add() oExcel:Visible := .t. oHoja := oExcel:ActiveSheet() oHoja:Name:= "Datos" oHoja:Range("B1:B"+ALLTRIM(STR(n))):select() ...
... gracias desde ya. //*********** //aca creo el excel Function creatabla(cTabla, Xlistad, xlistah) local aEstructura local nveces, N, oExcel, oWorkBook, xatt, oSheet oExcel := CREATEOBJECT( "Excel.Application" ) OEXCEL:DISPLAYALERTS=.F. oWorkBook := oExcel:WorkBooks:Add() oSheet ...
... en ese lugar me da error): oExcel := CREATEOBJECT( "Excel.Application" ) //oExcel:WorkBooks:Open( xruta ) OEXCEL:DISPLAYALERTS=.F. oWorkBook := oExcel:WorkBooks:Add() oSheet := oExcel:ActiveSheet // **************** DO CASE CASE XORDEN=1 oSheet:Cells( 1, 1 ):Value = "Codigo" ...
... en ese lugar me da error): oExcel := CREATEOBJECT( "Excel.Application" ) //oExcel:WorkBooks:Open( xruta ) OEXCEL:DISPLAYALERTS=.F. oWorkBook := oExcel:WorkBooks:Add() oSheet := oExcel:ActiveSheet // **************** DO CASE CASE XORDEN=1 oSheet:Cells( 1, 1 ):Value = "Codigo" ...
... "you will not find EXCEL.EXE in the Task Manager, Processes List") RETURN NIL Tested using Office 2007. It is also better to do a oWorkBook:Close() before the oExcel:Quit() oWorkBook:=oExcel:WorkBooks:Open(ALLTRIM(cfile))oWorkBook:Close()oExcel:Quit() ...
... I don't know if it is possible, to run it after : TOleAuto():New( "Excel.Application" ) What is included : Editor for : oWin, oExcel, oWorkbook and oSheet. Includes a Syntax-Field and a Memo-Field. A Painter, to define Fonts, Colors and some more Settings. Writing the Source, or start ...
Hello, Till now i can use a excel aplication as : oExcel := CreateObject( "Excel.Application" ) oWorkBook := oExcel:WorkBooks:Add() ........ Ok , this works , excel seems to generate a file (name) , map1.xls , .... Now , i try to open a existing xls file without succes ...
... To save use the third parameter in the method SaveAs of WorkBook object FUNCTION MAIN() LOCAL oExcel := CREATEOBJECT( "Excel.Application" ) LOCAL oWorkbook := oExcel:Workbooks LOCAL oSheet := oExcel:ActiveSheet ... savefile := oWorkbook.SaveAs( fileXL, ,"YourPassWord" ) ... RETURN NIL