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