FiveTech Software tech support forums

... clos data return endif oExcel := TOleAuto():New( "Excel.Application" ) oExcel:Visible := .T. // Muestra en pantalla la planilla Excel oBook := oExcel:Workbooks:Open( cFile ) oHoja := oExcel:Get( "ActiveSheet" ) nTotRowCount := oHoja:UsedRange:Rows:Count() * y me da el error: ...

... activa, desplazando esta a la derecha. La segunda opción me da error y no la puedo poner en marcha Encontré por el foro la siguiente instrucción oBook := oExcel:ActiveWorkbook:Sheets:Add( oExcel:ActiveWorkbook:Worksheets( oExcel:ActiveWorkbook:Worksheets:Count() ) ) Pero actúa como el primer ...

deberias cambiarlo por:

local oExcel := CreateObject( "excel.application" )
local oBook := oExcel:Workbooks:Add()
local oSheet := oBook:Worksheets( 1 )

Saludos

... 0. Si se le asigna un valor positivo, dibuja sombras a lo largo de los bordes derecho e inferior del control. * Nueva función ExcelBookSaveAs( oBook, cSaveAs, [lShow] ) --> cFileSavedWithFullPath Fuente: \source\function\olefuncs.prg. cSaveAS: Nombre de fichero con extensión xls/xlsx/htm/html/csv/pdf. ...

... INIT 0. If assigned with a positive value, draws shadow along the right and bottom edges of the control. * New function ExcelBookSaveAs( oBook, cSaveAs, [lShow] ) --> cFileSavedWithFullPath Source: \source\function\olefuncs.prg. cSaveAS: File name with extention xls/xlsx/htm/html/csv/pdf. ...

It is much simpler using the FWH builtin function GetExcelBook( cFileFullPath ) --> oBook if ( oBook := GetExcelBook( cExcelFileNameWithFullPath ) ) != nil            oBook:Application:Visible := .t.         endif  You can also opt for full code ...

... "Excel.Application" ) CATCH TRY oExcel := CreateObject( "Excel.Application" ) CATCH RETURN END END nPage := 1 nRow := 1 oBook := oExcel:WorkBooks:Add() oAS := oBook:Worksheets(1) oAs:Name := 'REPORT' oAS:Cells:Font:Name := "Arial" oAS:Cells:Font:Size := 10 oAs:PageSetup:PrintGridLines ...

... c ), nStrToNum( c1 ) --> 32456.2359 31456.2359 ? nStrToNum( "12,25%" ) --> 0.1225 * function GetExcelBook( cBook ) --> oBook: \source\function\olefuncs.prg In some cases oExcel:WorksBooks:Count() is returning nil, instead of zero or numeric value resulting in runtime ...

... no he podido visualizar previamente un archivo de excel, cTmpXls:='P:\Tmp\FINAL.xlsx' oExcel:=TOleAuto():New( "Excel.Application" ) oBook :=oExcel:WorkBooks:Open(cTmpXls,0) oSheet:=oExcel:Get("ActiveSheet") oSheet:PrintPreview() oExcel:Close() oExcel:Quit() Que tendre mal?

oBook:SaveAs( <name.csv>, 6 )

oBook:Close()

... lo habre, pero de alguna forma este que si cerrarse. para crear uno: oExcel:=TOleAuto():New("Excel.Application") oExcel:WorkBooks:Add() oBook :=oExcel:Get("ActiveWorkBook") oSheet:=oExcel:Get("ActiveSheet") cTmpXls:=NombreTmp('XLS') oBook:SaveAs(cTmpXls,xlWorkbookNormal) ...

... I used EXCEL2.prg from samples #include "FiveWin.ch" function Main() local oExcel := CreateObject( "excel.application" ) local oBook := oExcel:Workbooks:Add() local oSheet := oBook:Worksheets( 1 ) oSheet:Range( "A1" ):Value = "Last Name" oSheet:Range( "B1" ...

Hello // This Close   oBook:Close(.t.)   oDesktop:Terminate() TRY             oText := GetActiveObject( "com.sun.star.ServiceManager" )       CATCH          ? "Open Office non installato"           Return ...

Amigos tengo esto y funciona bien : local oExcel := CreateObject( "excel.application" ) local oBook := oExcel:Workbooks:Add() local oSheet oSheet:=oExcel:ActiveSheet oSheet:=oBook:Worksheets( 1 ) oSheet:Shapes:AddTextbox(1, 50, 125, 250, 130):TextFrame:Characters:Text ...