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

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

Function FW ...

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

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()
cFile := "C:\doctos ...

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()
&nbsp; &nbsp;cFile ...

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

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

... en ciertas 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
-396581 -396 ...

... was not found. It may have been moved, renamed or deleted .


This works

cFile := "\\pc\test\test.xlsx"
oExcel := ExcelObj()
oBook := oExcel:WorkBooks:Open( cFile )
? oBook:FullName
TRY
oSheet := oBook:ActiveSheet
oRange := oSheet:UsedRange
CATCH
END

Regards Maurizio
www.nipeservice.com

... A2:F6" or { 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 ...

... oExcel:=TOleAuto():New("Excel.Application")
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 ...

... oExcel:=TOleAuto():New("Excel.Application")
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 ...