Код:
var
EXL: OLEVariant;
Path:string;
a:integer; // твоя переменная
begin
Path:='d:\file.xls'; // тут путь к файлу экселя
EXL := CreateOleObject('Excel.Application');
EXL.Visible := False;
EXL.Workbooks.Open(Path);
a:=EXL.Cells[1, 1].Value;// присвоить переменной значение из ячейки 1-1
EXL.Quit
end;
зы Код не проверял, могут быть ошибки и если я правильно понял твою проблему, то должно помочь. И еще, в uses не забудь указать Variants