Excel是一個功能強大的電子表格軟件,可以處理各種類型的數據。除了支持Excel文件格式,它還可以讀取和導入其他文件格式,包括HTML代碼。這使得Excel在處理網頁數據時非常有用。
Sub ReadHtmlCode() Dim objHttp As New MSXML2.XMLHTTP Dim htmlDoc As New MSHTML.HTMLDocument Dim ele As MSHTML.IHTMLElement Dim iRow As Long With objHttp .Open "GET", "http://www.example.com", False .send htmlDoc.body.innerHTML = .responseText End With iRow = 1 For Each ele In htmlDoc.getElementsByTagName("a") Range("A" & iRow).Value = ele.innerHTML Range("B" & iRow).Value = ele.href iRow = iRow + 1 Next ele Set ele = Nothing Set htmlDoc = Nothing Set objHttp = Nothing End Sub
上面的VBA代碼演示了如何使用Excel從網頁中讀取HTML代碼。首先,我們使用Microsoft XML解析庫的XMLHTTP對象從網站獲取HTML代碼。然后,我們使用HTMLDocument對象將HTML代碼加載到Excel中。此后,我們可以使用HTMLDocument對象中的方法和屬性來使用HTML代碼。
在此示例中,我們遍歷HTML文檔中的“a”標簽,并將每個標簽的文本和鏈接URL輸出到Excel的第一列和第二列中。如果HTML文檔包含其他類型的元素,請根據需要進行更改。
使用Excel讀取HTML代碼是一項有用的技能,可以幫助您快速處理網絡數據。無論您是從外部源獲取數據還是從本地HTML文件中讀取數據,Excel都可以為您提供有力支持。