在excel文档中,如何为新建的excel文件重新命名?(100分)

在Delphi中可以打开或保存excel文件,但在建立新工作簿后,在excel中保存文件时默认的
是book1,能否在excel存档时改变这个文件名(指的是新建的工作簿)!!!

补充说明:在Delphi中用WorkBooks.Add建立一个新的工作簿,同时打开excel,然后点击SAVE
保存文档，对话框中出现新的文件名，而不是book1.xls.如何实现？！

创建自定义表名，结贴给分吧：
uses Excel2000, ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp: Variant;
begin
if not VarIsEmpty(ExcelApp) then
begin
ExcelApp.DisplayAlerts := False;
ExcelApp.Quit;
end;
try
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Workbooks.Add(xlWBatWorkSheet);
ExcelApp.Workbooks[1].WorkSheets[1].Name := 'My INFO'; { 自定义表名 }
ExcelApp.WorkBooks[1].SaveAs( 'C:/Tmp.xls' ); { 保存文件 }
finally
ExcelApp.DisplayAlerts := False;
ExcelApp.Quit;
end;
end;

非常感谢你的指点！以后向你多请教！加100分!