Excel是一款非常實用的電子表格軟件，它可以打開和編輯各種類型的數據文件。其中，Excel還擁有非常強大的讀取和解析HTML代碼的能力，可以輕松地將HTML代碼轉換成電子表格。

Sub ReadHTMLData()
'定義變量
Dim MyURL As String
Dim MyWeb As InternetExplorer
Dim HTMLDoc As HTMLDocument
Dim DataArray() As String
Dim TabIndex As Integer
'設置要讀取的網頁地址
MyURL = "http://www.w3school.com.cn/"
'創建IE瀏覽器并打開網頁
Set MyWeb = New InternetExplorer
MyWeb.navigate MyURL
Do Until MyWeb.readyState = READYSTATE_COMPLETE
DoEvents
Loop
'獲取網頁HTML代碼
Set HTMLDoc = MyWeb.document
DataArray = Split(HTMLDoc.body.innerText, vbNewLine)
'將數據導入到Excel表格
TabIndex = ActiveSheet.Index
For i = 0 To UBound(DataArray)
Cells(i + 1, 1).Value = DataArray(i)
Next i
'關閉IE瀏覽器
MyWeb.Quit
End Sub

以上代碼是一個簡單的VBA程序，它可以從指定的網頁中讀取HTML代碼，將其轉換成文本數據，并將數據導入到Excel表格中。通過這個程序，我們可以輕松地抓取各種網站上的數據，進行數據分析和處理。