[pesi]

Код:

var
e : OleVariant;
i: integer;
begin
e:= CreateOleObject('Excel.Application');
e.Visible:=true;
e.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');
for  i:=1 to e.WorkSheets.count do
begin
e.Sheets[i].SELECT;

ну а дальше выши действия