Excel是一個(gè)非常強(qiáng)大的工具，除了可以處理數(shù)據(jù)，還可以方便的生成報(bào)表。但是，在分析數(shù)據(jù)后，我們需要將結(jié)果輸出到網(wǎng)頁上，這時(shí)我們可以通過Excel自動(dòng)輸出html代碼來實(shí)現(xiàn)。

Excel自帶的導(dǎo)出HTML功能，只能將表格以html的形式保存，而無法自定義輸出的html代碼。但是，我們可以使用VBA代碼來實(shí)現(xiàn)自動(dòng)輸出html代碼。

Sub ExportToHtml()
Dim objHtmlFile As Object
Dim strFilePath As String
'獲取當(dāng)前工作簿的名稱
strFilePath = ThisWorkbook.FullName
'創(chuàng)建HTML文件
Set objHtmlFile = CreateObject("Scripting.FileSystemObject").CreateTextFile(strFilePath & ".html", True)
'寫入HTML頭部信息
objHtmlFile.WriteLine ""
objHtmlFile.WriteLine ""
objHtmlFile.WriteLine ""
objHtmlFile.WriteLine ""
objHtmlFile.WriteLine ""
'插入表格
objHtmlFile.WriteLine ""
For Each objTable In ActiveSheet.ListObjects
objHtmlFile.Write objTable.Range.Html
Next objTable
objHtmlFile.WriteLine ""
'寫入HTML尾部信息
objHtmlFile.WriteLine "
"
objHtmlFile.WriteLine ""
objHtmlFile.Close
MsgBox "導(dǎo)出成功"
End Sub

在macro中運(yùn)行該代碼，就可以自動(dòng)輸出當(dāng)前表格的HTML代碼，并將其保存在當(dāng)前工作簿所在的目錄中。此時(shí)，我們就可以將生成的HTML文件上傳到服務(wù)器，或者將其嵌入到網(wǎng)頁中。