Ciao,
codice:
FoglioExcel.ActiveWorkbook.SaveAs Filename:= App.Path & "\prova.htm", FileFormat:=xlHtml