ShellExecute不能实现你的要求:<br>excelapplication1.Connect;<br>excelapplication1.Caption:='123';<br>excelapplication1.Visible[0]:=true;<br>excelapplication1.Workbooks.Add('excelfile',0);<br>excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);<br>excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);<br>excelworksheet2.ConnectTo(excelworkbook1.Worksheets[2] as _worksheet);<br>excelworksheet3.ConnectTo(excelworkbook1.Worksheets[3] as _worksheet);<br>excelworksheet2.Activate;