请问 dbgrideh 导出 excel 的 表名"销售单$" 如何 更改 为 sheet1$ ...???(60分)

以下代码导出 excel,但导出的 sheet表名跟 excel的文件名称一样..文件名称"销售单" 里面表名也是"销售单",,
可以 excel名称 是 "销售单", 里面表名 是 "sheet1" 吗?
或者有什么 其它 dbgrideh 导出 excel 的方法 可以更改 sheet 名称,
(因为我又要 导入excel,但 代码只 认 sheet1$...变了 无法导入 "销售单$",也许有什么方法 导入 销售单$ 也可以,,但我查了以前DFW所有资料,都不行,只能使用 sheet1$ ..)
<分不多,希望解答,谢谢...>
var
ExpClass:TDBGridEhExportClass;
Ext:String;
begin
SaveDialog1.FileName := 销售单';
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
2: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
else
ExpClass := nil; Ext := '';
end;

if ExpClass <> nil then
begin
if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <> UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,True);

end;
end;

end;

使用这样的笨办法吧 。
var ExcelApp,MyWorkBook,mysheet:Variant;
i:byte;
s:string;
begin
ExcelApp:=CreateOleObject('Excel.Application');
MyWorkBook:=ExcelApp.workbooks.open('C:/123.xls');
MyWorkBook.worksheets[1].name:='sheet1';
MyWorkBook.save;
ExcelApp.quit1;
end;

抱歉!2楼,我比较菜....以上代码 不能编译通过...还有什么 要 uses 的吗?

引用 OleCtnrs, ComObj...