Export all Excel sheets (tabs) as individual HTML documents

ExportHtml.applescript

set theSource to choose file with prompt "Choose file:" default location (path to desktop) of type {"XLS", "XLSX"}
set theDestination to (choose folder with prompt "Choose destination folder:" default location path to desktop)
set thePath to (theDestination as text) & "output.HTML"

tell application "Microsoft Excel"
	activate
	open theSource
	tell active workbook
		save as active sheet filename thePath file format HTML file format
	end tell
	quit saving no
end tell