将Excel工作表另存为HTML [英] Save Excel sheets as HTML

问题描述

我正在尝试将工作表中的每个工作表( foo ， bar ， baz )保存为单独的HTML文档( foo.html ， bar.html ， baz.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 theDirectory & (the name of theSheet) & ".html"
        log theDestination

        tell theSheet
            save as sheet filename theDestination file format HTML file format
        end tell

    end repeat

    quit saving no

end tell

结果:

• Output 中每个工作表(名为<工作表名称> _files )的文件夹，其中包含每个工作表的HTML文档(命名为 sheet< n> .html )，以及一些其他文件( filelist.xml ， stylesheet.css ， tabstrip.html )

• a folder in Output for each sheet (named <sheet name>_files) that contains an HTML document for each sheet (named sheet<n>.html), plus a few additional files (filelist.xml,stylesheet.css,tabstrip.html)

Output 中的每个引用相应文件夹的工作表(名为.html`)的文件

a file in Output for each sheet (named .html`) that references the corresponding folder

我该如何纠正?

推荐答案

此脚本:

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) & "data.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

会生成:

• 名为 data.HTML
的文件
• 一个名为 data_files 的文件夹，其中包含每个工作表的文档( sheet< NNN> .HTML )，以及其他文件( filelist.xml ， stylesheet.css ， tabstrip.html )

• a file named data.HTML
• a folder named data_files, containing a document for each sheet (sheet<NNN>.HTML), plus additional files (filelist.xml,stylesheet.css,tabstrip.html)

这篇关于将Excel工作表另存为HTML的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！