开发 excel addin 执行 saveas时报错

[hstod]

环境 delphi7 office2003
代码：
procedure TExcel.OnBtnSave(const Ctrl: OleVariant;
var CancelDefault: OleVariant);
var
app: excelApplication;
begin
app:=fhostApp as excelApplication;
if app <> nil then
app.ActiveWorkbook.SaveAs('c:\\aa.xml',46,'','',false,false,xlNoChange,
xlLocalSessionChanges,EmptyParam,EmptyParam,EmptyParam,0);
end;

执行后 excel抛出异常 然后就退出了
想把excel文件保存成xml格式 那里错了，请告知一二 谢谢。

[hstod]

已经解决