Excel VBA获取网页内容

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")

就可以得到指定页面的源码数据了