[pesi]

открываем книгу екселя по порядковому номеру листа, тобишь второй лист

Код:

procedure TForm1.Button5Click(Sender: TObject);
var
MSe :OLEvariant;
begin
mse:= CreateOleObject('Excel.Application');
mse.Visible:=true;
mse.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');
mse.WorkBooks[1].WorkSheets[2].SELECT;
end;

открываем книгу екселя по имени листа, тобишь лист3

Код:

procedure TForm1.Button6Click(Sender: TObject);
var
MSe :OLEvariant;
begin
mse:= CreateOleObject('Excel.Application');
mse.Visible:=true;
mse.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');
mse.WorkBooks[1].WorkSheets['Лист3'].activate;
end;