在VBA中附加html文件

我有一堆Excel表格，每个都有一个数据表。 我需要制作一个button，一个接一个地创build一个包含表格的html页面。

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

我认为解决的办法是设置每个工作表的列宽，并单独导出到HTML，然后将它们全部附加到一个HTML文件。 有没有简单的方法来完成这个，或者我需要编写代码来进入每个HTML文件，并选出相关的部分？

Answer 1

在2001年6月的VBPJ期刊上，我写了一个专栏，可能会成为你的一个很好的起点。 它演示了如何迭代Range，将其转换为HTML表格，然后将其放在剪贴板上粘贴到其他位置（例如，FrontPage）。 文章：

问问VB Pro，2001年6月：汤团办公室VBA

具体来说，看看第二个Q / A对，清单2显示一个RangeToHtml（）函数。 我的代码基本上删除了所有的格式 – 这是我的目标。 我不太了解Excel对象模型可以肯定地说，但是我想可以在width中embeddedwidth = attributes，如果这很重要的话。