呵呵,还是你呀。
还是那个例子
var fname:WideString;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=True;
fname:='c:/1.xls';
ExcelApplication1.Workbooks.Open(fname,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
ExcelWorksheet2.ConnectTo(ExcelWorkbook1.Worksheets[2] as _worksheet);
ExcelWorksheet3.ConnectTo(ExcelWorkbook1.Worksheets[3] as _worksheet);
ExcelWorksheet1.Copy(ExcelWorkbook1.Worksheets[3]);
end;