1、Function getWebString(s曷决仙喁Url As String)Dim HttpReq As ObjectSet HttpReq = CreateObject(&鳎溻趄酃quot;MSXML2.ServerXMLHTTP")HttpReq.Open "GET", sUrl, FalseHttpReq.sendgetWebString = HttpReq.responseTextEnd Function
2、可以在表格里面以公式的形式来使用，如=getWebString("https://www.baidu.com/s?wd=cc")就可以得到指定页面的源码数据了