Save Excel sheets as HTML
问题 I'm attempting to save each sheet in a workbook ( foo , bar , baz ) as a separate HTML document ( foo.html , bar.html , baz.html ): set theDirectory to (path to desktop as text) & "Output:" set theSource to choose file with prompt "Choose file:" default location "/Users/<user>/Desktop/" of type {"XLS", "XLSX"} tell application "Microsoft Excel" activate set theWorkbook to open theSource set theSheets to every sheet of active workbook repeat with theSheet in theSheets set theDestination to