连续网页数据下载

qwer121

同志们，能否给个思路或支持一下给个完美方案，在此谢谢你的支持和帮助！

Kaohsing

你模拟个结果

qwer121

Kaohsing 发表于 2018-5-4 14:18
你模拟个结果

如上图

yylucke

兄嘚，如果实现你的需求，这就是一个爬虫程序。
况且，那些分数依照不同的省份、录取批次、不同年份、不同专业均不同。很复杂。建议：
1、用的最多的函数就是Split
2、用google浏览器，右键能看见网页源代码
3、你慢慢分析网页代码
3.1 抓取省份代码
3.2 抓取学校代码
3.3 抓取专业代码
3.4 用上述的代码for循环逐个在后台打开网页，扒分数。

qwer121

yylucke 发表于 2018-5-4 16:46
兄嘚，如果实现你的需求，这就是一个爬虫程序。
况且，那些分数依照不同的省份、录取批次、不同年份、不同 ...

也许我要求没有说明白，只要求提取某个省（比如：河北理科2017专业分数或者河北理科2016专业分数）这个应该怎么做？

Kaohsing

遍历省。遍历某省的大学。遍历某省某大学的理科或文科。

qwer121

参考了这个网页http://club.excelhome.net/thread-1000978-1-1.html，不知道谁可以把我的问题解决一下

看见星光

河北理科201-2017：
Sub GetWWW()
    Dim objHTML As Object, strText$, s$
    Set objHTML = CreateObject("htmlfile")
    Set objwindow = objHTML.parentWindow
    k = 1
    Cells.ClearContents
    For y = 2015 To 2017
        With CreateObject("msxml2.xmlhttp")
            .Open "POST", "https://g.eol.cn/gaokao/school/apitopscorebyspecial", False
            .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
            .send "schoolid=31&province=10016&type=10035&year=" & y
            strText = .responseText
        End With
        objwindow.execScript "a=" & Replace(strText, "var", "temp")
        l = objwindow.eval("a.length")
        r = Array("zyname", "max", "min", "temp")
        For i = 0 To l - 1
            k = k + 1
            Cells(k, 1) = y
            For j = 0 To UBound(r)
                s = "a[" & i & "]." & r(j)
                Cells(k, j + 2) = objwindow.eval(s)
            Next
        Next
    Next
    [a1:e1] = Array("年份", "专业名称", "最高分", "最低分", "平均分")
    Set objwindow = Nothing
End Sub

看见星光

附件参考 TTT.rar (16.04 KB, 下载次数: 22)

2018-5-12 13:05 上传

点击文件名下载附件

qwer121

看见星光 发表于 2018-5-12 13:05
附件参考

我看到只有一所学校，能否把每个大学的数据都提取出来。指点是某个省，比如河北文科2015（2016、2017）全部数据