开发 excel addin 执行 saveas时报错

Question

环境 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格式 那里错了，请告知一二 谢谢。

Answer 1

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, '', '', '',0);
end;try it again.

Answer 2

1楼有错误
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,EmptyParam,EmptyParam,false,false,xlNoChange,
      xlLocalSessionChanges, EmptyParam, EmptyParam, EmptyParam,0);
end;