FiveTech Software tech support forums

... open on the computer or if already used, uses the workbook object that is already open. 3. Obtains the specified sheet object. Defaults to the ActiveSheet 4. Obtains the range object. Defaults to the UsedRange. All this work requires long lines of program code and this function simplifies the ...

... crash. This program demonstrates the function oRange   := GetExcelRange( cBook, [cSheet], [cRange] ) cSheet defaults to ActiveSheet and cRange to UsedRange. Please try with any other excel book on your disk, using this single line code: XBROWSER GetExcelRange( cExcelBookNameFullPath ...

... ) 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: Error description: Error toleauto/65535 TOLEAUTO:NEW Called from: ...

Saludos necesito poder editar un cuadro de texto de una hoja de excel esto seria lo que se necesita hacer ActiveSheet.Shapes.Range(Array("TextBox 1")).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _ "DECLARACION JURADA" & Chr(13) ...

... oExcel:sheets:Add() o también puedes después del oExcel:sheets:Add() moverla a la ultima posición: oExcel:sheets:Add() oHoja := oExcel:ActiveSheet() oHoja:Move(,oExcel:Workbooks:Sheets:Count()) //Ojo debe ser el segundo parámetro de Move

... Endif oExcel := TOleAuto():New("Excel.Application") oExcel:WorkBooks:Add() oExcel:sheets("Hoja3"):Select() oHoja:=oExcel:ActiveSheet() oExcel:sheets:Add() Saludos Juan Jose

... TOleAuto():New("Excel.Application") objExcel:Visible := .T. objExcel:Workbooks:Add() objExcel:Sheets("Hoja1") oHoja:=objExcel:ActiveSheet() oHoja:Shapes:AddPicture("C:\Prueba\logo.jpg",.t.,.t.,10,5,88,80) objExcel:Cells(1, 5):Font:bold := .T. objExcel:Cells(1, 5):Font:Size ...

... FONT 3 Time from start: 0 hours 0 mins 3 secs Error occurred at: 10.03.2021, 18:32:34 Error description: Error Excel.Application:WORKBOOKS:ADD:ACTIVESHEET/3 DISP_E_MEMBERNOTFOUND: RANGE Args: [ 1] = O Excel.Application:WORKBOOKS:ADD:ACTIVESHEET:RANGE:CELLS [ 2] = N 6 I have uploaded my source ...

Maybe try making Excel visible to see if it has problems.

// Create the object
oExcel := ExcelObj( )

oExcel:Visible := .t.

oExcel:WorkBooks:Add( )
oAS := oExcel:ActiveSheet( )

oAS:Cells:Font:Name := "Arial"
oAS:Cells:Font:Size := 12

... use ================ Procedure Type Value ========================== TOLEAUTO:VALUE Local 1: U Local 2: C "Excel.Application:WORKBOOKS:OPEN:ACTIVESHEET:USEDRANGE" TEST Local 1: O Class: TOLEAUTO Local 2: L .F. Local 3: U Local 4: U Linked RDDs =========== DBF DBFFPT DBFBLOB DBFNTX DataBases ...

... Pack 1 Time from start: 0 hours 0 mins 39 secs Error occurred at: 04/23/19, 10:30:11 Error description: Error Excel.Application:WORKBOOKS:OPEN:ACTIVESHEET:USEDRANGE/14 E_OUTOFMEMORY: VALUE Args: Stack Calls =========== Called from: => TOLEAUTO:VALUE( 0 ) Called from: excelrange2.prg => ...

... Excel. [" + Ole2TxtError()+ "]" ) RETURN (.T.) END END // Open XLS... TRY oExcel:WorkBooks:Open( cDrive + cSource ) oSheet = oExcel:ActiveSheet CATCH Alert( "Error Reading XLS: " + cDrive + cSource + " - [" + Ole2TxtError()+ "]" ) RETURN (.F.) END TRY ...

... "WK2.xlsx" oExcel:WorkBooks:Open( "&subdirc3" ) cNamex = "S1" oExcel:Sheets( cNamex ):Select() oSheet2 = oExcel:ActiveSheet subdirc2 = "WK1.xlsx" oExcel:WorkBooks:Open( "&subdirc2" ) cName = "S1" oExcel:Sheets( cName ):Select() ...

... and than select the excell-sheet (in case if more than 1 sheet is open) that the program have to modify/use. Thanks Intenta asi... oHoja := oExcel:ActiveSheet() // SINO ESPECIFICAS QUE HOJA, TOMARA POR DEFECTO LA HOJA1 oExAngu:Sheets("COLUMNAS"):Select() // SELECCIONO Y ME CAMBIO A LA ...

hi, I know that GetExcelRange function works with this parameters ( cBook, cSheet, acRange, lOpened ) function defaults to ActiveWorkBook, ActiveSheet and UsedRange, if the corresponding parameters are not specified. I Have a lot of excel files (cBook) and inside there are 1 or n sheets (cSheet), ...