Dim HttpReq As Object
Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
HttpReq.Open "GET", 網頁URL, False
HttpReq.send
Dim resText As String
resText= HttpReq.responseText
resText 就是網頁的HTML源代碼,用VBA的字符處理函數可以方便的提取源代碼中的有用信息