PDA

Ver la Versión Completa : total de filas y columnas


bataola
01-06-2005, 15:57:31
Hola gente... como puedo conseguir la cantidad de filas y columnas de una hoja de Excel?

salu2

_fede
01-06-2005, 17:34:13
Una idea puede ser:

procedure LeerEXCEL(AFichero: String);
var
I, J: Integer;
Excel: Variant;
begin
Excel := CreateOleObject('Excel.Application');
try
try
Excel.WorkBooks.Open(AFichero);

// Una línea en blanco define dos regiones diferentes.
for I := 1 to Excel.Rows.CurrentRegion.Rows.Count do
for J := 1 to Excel.Cols.CurrentRegion.Cols.Count do
begin
// Proceso.
end;
except
raise;
end;
finally
Excel.Quit;
end;
end;

Saludos.

bataola
01-06-2005, 21:13:22
Gracias por la idea, me sirvio de mucho


salu2