如何将ｅｘｃｅｌ文件转为html 文件(20分)

我使用的是delphi5的server控件，
　　不知道各位有什么好方法没有．下面是我的代码，总是不能实现
不知道这是为什么！！
不好意识，没多少分了．全部奉上
try

ExcelApplication1.Connect;
ExcelApplication1.Visible[0] := True;
ExcelWorkbook1.ConnectTo(
ExcelApplication1.Workbooks.Add(Null, 0));
ExcelWorksheet1.ConnectTo(
ExcelWorkbook1.Worksheets['Sheet1'] as _Worksheet);
ExcelWorksheet1.Cells.Item[1,1]:=1;
ExcelWorksheet1.Cells.Item[2,1]:=1;

ExcelWorkbook1.SaveAs('F:/wy/软件/ExcelTst/Sample1.htm',
'xlhtml' ,
Null ,
Null ,
Null ,
Null ,
xlShared ,
Null ,
Null ,
Null ,
Null ,
0);
finally
//Excel終了
ExcelApplication1.Quit;
end;

将Use部分加入Excel2000:
ExcelWorkbook1.SaveAs('C:/Sample1.htm',xlHtml, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, xlNoChange, EmptyParam, EmptyParam, EmptyParam, EmptyParam,0);

不加 Excel2000 直接把 xlHtml 换成 $0000002C 也可
但要Excel为Excel2000及以上版本

to delphiland
程序报错：file not find excel2000
是不是什么地方要设置？
　

将xlhtml 换成＄００００００２c也不行呀

第一个错误是file not find excel2000.dcu

接受答案了.