Excel VBA 如何將表格釋出成網頁，這個功能的確強大

2021-07-17 03:06:05

No.1

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)

具體研究可以看一下程式碼

No.2

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---

Excel VBA 如何將表格釋出成網頁，這個功能的確強大

No.1

No.2

熱門文章