如何通过Excel VBA宏设置导出HTML文件的页面标题

现有脚本与需求 #

当前使用的HTML导出宏代码如下：

ActiveWorkbook.SaveAs Filename:= _
        "C:\example\Desktop\AutoOutput\test" + ".html", _
        FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False

以上为当前使用的文件保存宏脚本

日常需要将Excel表格保存为HTML格式用于共享，需要自定义设置打开网页时浏览器标签栏、窗口显示的标题内容。手动通过Excel执行另存为HTML操作时可找到对应标题设置项，需要通过VBA宏实现该配置的自动化设置。
操作界面参考截图：

实现方案 #

Workbook.SaveAs方法自带Title入参，完全对应手动另存流程里的标题设置项，直接在原有代码的参数列表中追加该参数即可生效，修改后的代码示例：

ActiveWorkbook.SaveAs Filename:= _
        "C:\example\Desktop\AutoOutput\test" + ".html", _
        FileFormat:=xlHtml, _
        ReadOnlyRecommended:=False, _
        CreateBackup:=False, _
        Title:="替换为你需要的浏览器标签显示标题"

将Title参数后的文本替换为你需要的自定义标题即可，导出后的HTML文件在浏览器打开时，标签栏会直接显示设置的内容。如果覆盖已存在的旧HTML文件后标题未同步更新，先删除旧的HTML文件和同名的附属资源文件夹，再重新运行宏导出即可。

内容的提问来源于stack exchange，提问作者becauseeee