Hola creo que si me servira el segundo metodo coso, muchas gracias, solo una cosa mas, ya coloque tu código en el form pero me marca error, me dice que no esta declarada "Encontrar_EditBox", la verdad yo soy novato en esto del Delphi y no se donde incluir los "funtion". mira te pongo toda mi idea para que sepas bien a que voy:
tengo un form con dos botones y 11 Edit's, el primer botón es para abrir un opendialog, luego recojo la ubicación de cualquier archivo de excel(para esto ya tengo un estandar de como acomodar los datos que necesito) en un Edit que es el "Edit1", los otros 10 Edit me van a servir para recojer los datos que necesito en la hoja de excel, y por último con el segundo botón le puse este código:
Código:
procedure TForm62.Button2Click(Sender: TObject);
const
xlCellTypeLastCell = $0000000B;
var
Excel, Sheet, FileName, Encontrar_EditBox: OLEVariant;
CantRow, CantCol, i, j : Integer;
RangoMatriz: Variant;
begin
FileName := Edit1.text;
Excel := CreateOleObject('Excel.Application');
Excel.Workbooks.Open(FileName);
Sheet := Excel.Workbooks[ExtractFileName(FileName)].WorkSheets[1];
Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
CantRow := Excel.ActiveCell.Row;
CantCol := Excel.ActiveCell.Column;
RangoMatriz := Excel.Range['A1', Excel.Cells.Item[CantRow,CantCol]].Value;
for i:=1 to CantRow do
begin
for j:=1 to CantCol do
begin
Encontrar_EditBox:=RangoMatriz[i,j];//aqui puse el resultante de la "funtion
Showmessage(RangoMatriz[i,j]);
//haces todo lo que necesites hacer
end;
end;
end;
En este código lo que hace es mostrarme por medio de mensajes cada uno de los valores que tiene la hoja, por ejemplo en la hoja de 10 valores me despliega 10 mensajes con los diez datos.
Espero que me hayas comprendido