在許多網站中，我們會看到很多有用的信息，比如說新聞、天氣預報、股票數據等等。這些信息通常是以HTML網頁的形式呈現，而我們想要獲取這些HTML代碼以便進一步處理或者分析。這里我們介紹一種利用Access獲取HTML代碼的方法。

首先我們需要在Access中創建一個新的模塊。在模塊中，我們可以使用“Microsoft XML, v6.0”來創建XMLHTTP對象，用于發送HTTP請求并獲取HTML代碼。

Dim req As New XMLHTTP60
Dim html As String
req.Open "GET", "https://www.example.com", False
req.send
If req.Status = 200 Then
html = req.ResponseText
End If
Debug.Print html

在代碼中，我們首先創建了一個XMLHTTP對象，并使用Open方法打開一個GET請求。在請求的URL中，我們可以輸入任何合適的網址。接著我們使用send方法來發送請求，并等待服務器響應。

如果服務器成功響應，我們可以通過判斷狀態碼來確定是否成功獲取了HTML代碼。在狀態碼為200的情況下，我們將ResponseText屬性賦值給html變量，即可獲取到網頁的HTML代碼。

最后我們可以使用Debug.Print語句輸出html變量，以便我們可以在Access中查看獲取的HTML代碼。接下來，您可以按照您的需求進一步處理這些HTML代碼，比如說使用正則表達式來提取有用的信息、使用HTML解析器來構建網頁模型等等。