Cómo saber Fila y Columna final en excel?

Board index FiveWin para Harbour/xHarbour Cómo saber Fila y Columna final en excel?

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Cómo saber Fila y Columna final en excel?
Posted: Thu Apr 12, 2018 03:41 PM

Hola Amigos del foro:

En una hoja de Excel necesito saber cual es el número de la última fila usada,
lo mismo para saber cual es el número de la última columna usada.

Por usada quiero decir que tiene información.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

noe aburto

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Re: Cómo saber Fila y Columna final en excel?
Posted: Thu Apr 12, 2018 04:36 PM

Code (fw): Select all Collapse

  bSalida:=Mensaje('...','Importando cata de excel SAT')
  oExcel:=TOleAuto():New( "Excel.Application" )
  oExcel:WorkBooks:Open('P:\tmp\CE005.xlsx')
  oHoja := oExcel:Get( "ActiveSheet" )
  nRows := oHoja:UsedRange:Rows:Count()
  nCols := oHoja:UsedRange:Columns:Count()
  FOR nRow := 2 TO nRows
   if Empty(oHoja:Cells( nRow, 1 ):Value)
    exit
   endif
   CursoMens(oHoja:Cells( nRow, 1 ):Value)
   cApl:=ceros(StrTran(oHoja:Cells( nRow, 1 ):Value,'-',''),10)+'0'
   if DBSeek(cApl)
    ccu->apl_ant:=AllTrim(Str(oHoja:Cells( nRow, 2 ):Value,10,2))
   else
    aviso('La aplicacion '+cApl+' no existe en el catalogo')
   endif
  NEXT
  oExcel:Quit()
  eval(bSalida)

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Cómo saber Fila y Columna final en excel?
Posted: Thu Apr 12, 2018 04:45 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion