在 Delphi中使用Excel控件的存成Web页方法是什么(100分)

我做的这个程序需要用到Excel自动化对象，找到了操纵Excel控件的许多对象方法，
但最重要的一个方法没找到，即将当前worksheet(or workbook)存成Web页（Excel2000）
中的[文件]菜单中有此项功能。麻烦诸位大仙帮帮忙。我急呀

用OLE自动化
Const
xlHtml = 44
begin
ActiveWorkbook.SaveAs（‘C:/My Documents/新文件夹/Book1.htm,xlHtml)
end;

Const
xlHtml = 44
begin
ActiveWorkbook.SaveAs（‘C:/My Documents/新文件夹/Book1.htm',xlHtml)
end;

真是非常感谢你，arm,but...

我用的是Servers 的ExcelApplication:
Const
xlHtml=44;
begin
ExlApp1.ActiveWorkbook.SaveAs('C:/quan/First.htm',xlHtml);//*********
ShowMessage('SaveOK!');
end;
编译时//****行出错，说是
[Error] ExlMForm.pas(106): Not enough actual parameters

怎么办？

得加N个emptyparams

你是说这样么
ExlApp1.ActiveWorkbook.SaveAs('C:/quan/First.htm',xlHtml,'','',false,false,
Nil,Nil,Nil,Nil,Nil,0);
还是
ExlApp1.ActiveWorkbook.SaveAs('C:/quan/First.htm',xlHtml,,,,,,,,,,)?
我试了，都不行。
麻烦赐教。谢谢。真的很急。

ExlApp1.ActiveWorkbook.SaveCopyAs('c:/quan/First.htm',xlHtml)；
这样写出现运行时错误，说什么'格式太旧或类型库无效'
I am so ...

@_@

以下代码:
const
file_string='E:/open1.xls';
begin
try
ExcelWorkbook2000_1.ConnectTo(
ExcelApplication2000_1.Workbooks.Open(
file_string,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,
EmptyParam,EmptyParam,0));

ExcelWorksheet2000_1.ConnectTo(
ExcelWorkbook2000_1.Activesheet
as _Worksheet);

ExcelWorksheet2000_1.SaveAs('E:/victory100.htm');
finally
ExcelWorksheet2000_1.Disconnect;
ExcelWorkbook2000_1.Disconnect;
ExcelApplication2000_1.Disconnect;

ExcelApplication2000_1.Quit;
end;
if 不好使,E-mail to me:mengguboy@etang.com

多人接受答案了。