FiveTech Software tech support forums

... 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 entire work. If the user has already any Excel file open ...

... 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 ) ...

... 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: => THROW(0) Called from: source/rtl/win32ole.prg ...

By default, it will select
oSheet:UsedRange.

And UsedRange includes any cells the user has used even for formatting even if does not have any data.

If you want to read only specific range, then you can specify the range explicitly in the function in the 3rd parameter

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() ...

... 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 in ...

... 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 => TEST( 12 ) ...

... 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), is there ...

Noe:

Muchas gracias, parece que las líneas

nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()

Son las que me sacarán del problema.

Saludos

... columnas de la hoja que estoy creando, al final para dar formato a los campos numericos doy: oSheet:Range("A1:H"+Alltrim(Str(oSheet:UsedRange:Rows:Count()))):NumberFormat:="###,##0.00" y las cifras me la pone: -4615952,98 cuendo es -4,615,952.98 4219371,98 4.219,371.98 ...

... oExcel := ExcelObj() oBook := oExcel:WorkBooks:Open( cFile ) ? oBook:FullName TRY oSheet := oBook:ActiveSheet oRange := oSheet:UsedRange CATCH END Regards Maurizio http://www.nipeservice.com

... { nTop, nLeft, nBottom, nRight } or name of a Range (eg. "Sales") or can be nil/omitted. If nil or ommitted, the function accesses the UsedRange. 2nd Optional Parameter: Sheet Name: If provided, attempts to access the range from the specified page. If nil/omitted then uses the ActiveSheet. ...

... oBook := oExcel:Workbooks:Open(cFile) oHoja := oExcel:Get( "ActiveSheet" ) nTotRowCount:= oHoja:UsedRange:Rows:Count() USE C:\VENTAS NEW EXCLUSIVE FOR Q=2 TO nTotRowCount cNombre:=oHoja:Cells( Q, 1 ):Value nTotal:=oHoja:Cells( Q, 3 ):Value ? TYPE("cNombre") ...

... oBook := oExcel:Workbooks:Open(cFile) oHoja := oExcel:Get( "ActiveSheet" ) nTotRowCount:= oHoja:UsedRange:Rows:Count() USE C:\VENTAS NEW EXCLUSIVE FOR Q=2 TO nTotRowCount cNombre:=oHoja:Cells( Q, 1 ):Value nTotal:=oHoja:Cells( Q, 3 ):Value ? TYPE("cNombre") ...