如何将excel文件保存为web档案（*.mht）,高手帮帮忙啊

Question

我写如下程序想将一个excel文件保存成*.mht
procedure TForm1.Button3Click(Sender: TObject);
var
  V: Variant;
begin
  V := CreateOleObject('Excel.Application');
  V.Visible := false;
  V.WorkBooks.Open('c:\htm\10008132.xls'); try
  V.ActiveWorkbook.SaveAs('c:\htm\10008132.mht',xlWebArchive);
  finally
  v.quit;
  end;
end;
总是提示
[Error] Unit1.pas(108): Undeclared identifier: 'xlWebArchive'
我将'xlWebArchive'换成其他类型就可以操作，我装的officexp
我还有什么没有申明？

Answer 1

uses ExcelXP;orxlWebArchive = $0000002D;

Answer 2

應該到了 ExcelXp 才提供你要的功能吧!!!

Answer 3

谢谢使用xlWebArchive = $0000002D;就行了