excel文件另存为html?(20分)

请问:怎么将excel保存为html文件?我现用下列代码保存后,运行html文件出现乱码,不知道怎么回事.
var
app1,work1:Variant;
begin
app1:=CreateOleObject('Word.Application');
work1:=app1.Workbooks.Open('c:/aa.xls');
work1.saveas('c:/aa.htm');
end
请指点

看看吧 帮帮忙吧

你没有规定文件保存格式。另外，你是使用word打开。
现在的代码是测试过的。

var app1,work1:Variant;
fileformat:OleVariant;
begin
app1:=CreateOleObject('excel.Application');
work1:=app1.Workbooks.Open('c:/11.xls');
fileformat:=xlHtml;
work1.saveas('c:/1212.htm',fileformat);

end;

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

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