Excel表格是可以作為網頁來進行展示的，也就是說當你完成一個表格，想要通過Web網頁來進行發布，那麼就需要看這篇文章了。

目前網絡技術發展十分快，辦公方式也逐漸向網絡辦公進行遷移，這是大趨勢。

那麼，當我們編輯好一個工作表之後，如何在網頁上正确顯示，就需要以Web代碼形式來進行處理，這是Excel之外的另一種編碼方式，但是Excel也給出了解決方法。

如下圖所示，編輯好一個表格，通過一些代碼就可以實現網頁顯示。

下圖為發布成Web頁的效果，也就是Htm後綴的文件。

Htm文件有什麼用呢？

它是Web頁通用格式，當然不是唯一的格式，也就是說，Htm格式可以用任何浏覽器打開，而xls或xlsx隻能用Excel或WPS等編輯軟件打開，通用性不同，Htm格式隻能讀不能編輯。

下面進入正題，了解一下通過VBA如何實現Web網頁發布。

如下圖所示，首先要認識PublishObject對象，圖中有對象的方法和屬性詳細内容。

PublishObject對象看不到，它是不是存在，可以通過代碼來查看。

WorkBook.PublishObjects.Count '返回工作薄中的PublishObject對象數

WorkBook.PublishObjects.item(1).FileName'返回第一個PublishObject對象文件地址和文件名

PublishObjects是一個集合，包含了所有PublishObject對象。

發布隻用一個方法：

PublishObject.Publish(true)

具體研究可以看一下代碼

Sub NewPublishObject(xPath As String) '導出Html文件 On Error Resume Next Dim wx As Workbook, pobj As Object Set wx = ActiveWorkbook Set pobj = wx.PublishObjects.Add(xlSourceRange, xPath, wx.ActiveSheet.Name _ , wx.ActiveSheet.UsedRange.Address, xlHtmlStatic, "", wx.ActiveSheet.Name) With pobj .Publish (True) .AutoRepublish = False ' MsgBox .DivID End With Set pobj = Nothing End Sub

上述代碼首先添加一個PublishObject對象，然後再進行方法和屬性設置。

添加PublishObject使用PublishObjects.Add()方法

具體參數如下圖所示：

如果要進行網頁展示表格，相信這個還是十分有用的。

歡迎關注、收藏

---END---