在VBA中附加html文件

Question

我有一堆Excel表格，每個都有一張數據表。我需要製作一個按鈕，一個接一個地創建一個包含表格的html頁面。

我對html的瞭解不多，因此我的第一種方法是創建一個帶有表格的另一個工作表的宏，然後使用ActiveWorkbook.PublishObjects將該表保存爲html。問題是我不希望列的寬度對於導出文件中的所有表都是相同的。

我認爲解決方案是設置每個工作表的列寬，並將工作表分別導出到html，然後將它們全部附加到一個html文件中。有沒有簡單的方法來完成這個任務，或者我是否需要編寫代碼才能進入每個html文件並挑選相關部分？

Answer 1

在2001年6月的VBPJ期刊上，我寫了一個專欄，可能會成爲你的一個很好的起點。它演示瞭如何迭代Range，將其轉換爲HTML表格，然後將其放在剪貼板上粘貼到其他位置（例如，FrontPage）。的文章：

Ask the VB Pro, June 2001: Soup Up Office VBA

具體而言，看看所述第二Q/A對，和清單2示出了一個RangeToHtml（）函數。我的代碼基本上刪除了所有格式 - 這是我的目標。我對Excel對象模型肯定不夠了解，但我想你可以在其中嵌入width =屬性，如果這很重要的話。