放两个SERVER控件 excelapplication,ExcelWorksheet
excelapplication1.Workbooks.Open('c:/文件名.xls',
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,0);
asheet:=excelapplication1.worksheets.item[1];
ExcelWorksheet1.ConnectTo(excelapplication1.worksheets.item[1] as _Worksheet);
ExcelWorksheet1.SaveAs('c:/文件名',xlHtml);