在 VBA 中附加 html 文件答案

【问题标题】：Appending html files in VBA在 VBA 中附加 html 文件
【发布时间】：2010-11-05 15:04:29
【问题描述】：

我有一个 Excel 报告，其中包含一堆工作表，每个工作表都有一个数据表。我需要制作一个按钮来创建一个包含表格的html页面，一个接一个。

我对 html 了解不多，所以我的第一个方法是创建一个宏来创建另一个包含表格的工作表，然后使用 ActiveWorkbook.PublishObjects 将该工作表保存为 html。问题是我不希望导出文件中所有表的列宽都相同。

我认为解决方案是在每张工作表上设置列宽并将工作表单独导出为 html，然后将它们全部附加到一个 html 文件中。有什么简单的方法可以做到这一点，还是我需要编写代码进入每个 html 文件并选择相关部分？

【问题讨论】：

【解决方案1】：

在 2001 年 6 月号的 VBPJ 中，我写了一篇专栏文章，可能会成为您的一个很好的起点。它展示了如何遍历 Range，将其转换为 HTML 表格，然后将其放在剪贴板上以粘贴到其他内容（例如 FrontPage）。文章：

具体来说，看一下第二个 Q/A 对，清单 2 显示了 RangeToHtml() 函数。我的代码基本上去掉了所有的格式——这就是我的目标。我对 Excel 对象模型的了解不够肯定，但我想如果这很重要，您可以在 's 中嵌入 width= 属性。

【讨论】：