作者：乔山办公网日期：
返回目录：excel表格制作
Sub getHTML()
Dim http
Set http = CreateObject("Msxml2.ServerXMLHTTP")
http.Open "GET", "https://zhidao.baidu.com/question/83523339.html", False
http.send
Debug.Print http.Status
Debug.Print http.responsetext
End Sub
1、打开Excel，点击“数据”，点击“新建web查询”。来
2、在网上搜索一个列表，复制网址后点击“转到”。
3、点击“隐藏图标”，选择此列表，点击“导入”自，点击确定，这样就导入数据了。
4、若是想要查询实时数据，在粘贴到的区域内，右键鼠标，点下刷新即zd可完成。下方就会显示正在后台查询，将网页内容复制到表格等等。
这个的话
你必须要对excel里面的VBA的很熟悉啊
你可以去excel home里面询问一些VBA高手啊
这里很难遇到啊
看来你是有一点网抓基础的。稍微学习下再结合VBA就可以做到了。