如何从这个网页提取表格数据，做成电子表格呢？谢谢 - 编程论坛

#2

wds12018-08-08 15:03

如果是需要数据不用做了，直接Ctrl+C，Ctrl+V

如果是学习，可以用Web1.Navigate2打开网页，通过判断标题处理

[此贴子已经被作者于2018-8-8 15:09编辑过]

#3

外部三电铃2018-08-08 15:07

我以为多复杂的呢，这个简单的不能再简单了，直接查看网页源代码就能看到table表格的数据，也就是说直接抓取这个页面，然后筛选数据就可以了。

现在很多网页，直接查看网页源代码什么内容看不到，除了引用的几个js文件，这样的网页就得模拟浏览器抓取了，比较麻烦。

但楼主的这个，很容易抓，随便从网上找了一个抓取函数，楼主可以参考下

程序代码：

Function GetHTMLCode(Optional strURL As String) As String
    Dim objHttp As Object, strText As String
    Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
    objHttp.Open "GET", strURL, False
    objHttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHttp.Send ("")
    strText = objHttp.responseText
    Set objHttp = Nothing
    GetHTMLCode = strText
End Function

#4

jinanshui2018-08-08 15:12

谢谢，我看看