創個http物件，連向特定url，將取回的資料存到c:\test\test.txt
Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")HttpReq.Open "GET", "https://www.ptt.cc/bbs/Baseball/index.html", FalseHttpReq.sendSet objFSO=CreateObject("Scripting.FileSystemObject")outFile="C:\test\test.txt"Set objFile = objFSO.CreateTextFile(outFile,True)objFile.WriteLine(HttpReq.responseText)objFile.Closeexcel vba存到a1儲存格裡
Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")HttpReq.Open "GET", "https://www.ptt.cc/bbs/Baseball/index.html", FalseHttpReq.sendcells(1,1)=HttpReq.responseText
已知問題