在DELPHI设置EXCEL工作薄的名称

Question

excel顶端标题栏的标题分二个部分，前面是微软EXCEL，后面是book1,现在问题如何用DELPHI设置，使它不是book1，而是自己想要的名称，这个很重要，因为保存文件时，它是保存文件的默认文件名。

Answer 1

首先打开EXCEL文件，改名保存后，删除原文件就达到目地了。

源码：
procedure TForm1.Button1Click(Sender: TObject);
const
NewName = 'NewName.xls';
var
fnm,pth: String;
ExlApp: TExcelApplication;
ExlWb: TExcelWorkbook;
begin
if OpenDialog1.Execute then begin
fnm := OpenDialog1.FileName;
pth := ExtractFilePath(fnm);
ExlApp := TExcelApplication.Create(Forms.Application);
ExlApp.Connect;
ExlApp.Visible[0] := False;
ExlWb := TExcelWorkbook.Create(Forms.Application);
ExlWb.ConnectTo(
ExlApp.Workbooks.Open(fnm,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,0));
ExlApp.Application.DisplayAlerts[0] := False;
ExlWb.SaveCopyAs(pth + NewName);
ExlWb.Close(EmptyParam, fnm, EmptyParam, 0);
ExlApp.Quit;
//必要时，可以删除原来的文件
//DeleteFile(fnm);
end;
end;

Answer 2

XLApp.Application.Caption:='新的标题';本回答被提问者采纳

Answer 3

DELPHI是软件还是公司名啊？