[code delphi]
procedure TF_rda_ship.RzBitBtn13Click(Sender: TObject);
var
ExcelApp, Excelbook, ExcelChart: OleVariant;
i, j, fieldcount, llch, sqlval: integer;
mm, sqlstr, FileName: string;
begin
rzedit2.Text := 'c:\temp\CJ SHIPMENT ' formatdatetime('YYYYMMDDHHMM', now) '.xls';
dxdbgrid6.SaveToXLS( rzedit2.Text, true);
try
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := True;
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
ExcelApp.WorkBooks.Open(rzedit2.Text);
ExcelApp.Application.DisplayAlerts := False;
ExcelApp.WorkSheets[1].Activate;
ExcelApp.WorkSheets[1].name:='Subcon Shipment(Delivery)';
ExcelApp.ActiveWorkbook.Save;
ExcelApp.Application.Quit;
ExcelApp.Application.DisplayAlerts := true;
Excelapp := null;
except
Application.Messagebox('Excel 没有安装!', 'Hello', MB_ICONERROR mb_Ok);
Abort;
end;
end;
[/code]

如上面代码
dxdbgrid6.SaveToXLS保存后的excel文件名和里面的worksheet的名字是一样的
我在delphi里调用excel将其打开并改掉worksheet的名字，程序执行完后没有效果，名字没改掉，还是跟文件名一样
单步调，名字改是会改，但是保存没效果
请问是怎么回事？该如何保存？谢谢