Ir al final de la Hoja de Excel (SOLUCIONADO)

Ir al final de la Hoja de Excel (SOLUCIONADO)

Postby Armando » Sun Oct 02, 2016 1:53 am

Hola Amigos del foro:

Abriendo un libro y hoja de Excel, cómo puedo determinar hasta que fila o renglón
hay datos??, debo aclarar que hay filas intermedias que no tienen datos.

Por ejemplo

Fila 1: Tiene datos
Fila 2: No tiene datos
Fila 3: Tiene datos
Fila 4: Tiene datos

Me interesa obtener el valor 4

Alguna recomendación?

Saludos
Last edited by Armando on Sun Oct 02, 2016 5:27 pm, edited 1 time in total.
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
User avatar
Armando
 
Posts: 3229
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Ir al final de la Hoja de Excel

Postby horacio » Sun Oct 02, 2016 1:40 pm

Armando, que utilizas para leer el archivo ?

Saludos
horacio
 
Posts: 1363
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Ir al final de la Hoja de Excel

Postby joseluisysturiz » Sun Oct 02, 2016 4:10 pm

Armando prueba asi...saludos... :shock:

Code: Select all  Expand view  RUN

oExcel := TOleAuto():New( "Excel.Application" ) // ACTIVANDO EXCEL
oExcel:Workbooks:Open( cFileXls ) // ABRO EL ARCHIVO SELECCIONADO
oBook := oExcel:Get( "ActiveSheet" ) // ACTIVO HOJA EXCEL
nRows := oBook:UsedRange:Rows:Count() // CANTIDAD LINEAS EXCEL INCLUYENDO LA LINEA 1 QUE ES LA CABECERA
nCols := oBook:UsedRange:Columns:Count() // CANTIDAD COLUMNAS EXCEL
 
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: Ir al final de la Hoja de Excel

Postby Armando » Sun Oct 02, 2016 5:26 pm

José Luis:

Justo en el clavo, muchas gracias.

Horacio:

Utilizo TOle, tal como lo ejemplifica José Luis

Gracias por preguntar.

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
User avatar
Armando
 
Posts: 3229
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Ir al final de la Hoja de Excel

Postby joseluisysturiz » Sun Oct 02, 2016 5:46 pm

Armando wrote:José Luis:

Justo en el clavo, muchas gracias.

Horacio:

Utilizo TOle, tal como lo ejemplifica José Luis

Gracias por preguntar.

Saludos


Armando, para eso es el foro, para ayudarnos y compartir lo posible, saludos... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 63 guests