如何提取网页股票数据，涉及到翻页

tzjx200521

如何提取  http://summary.jrj.com.cn/gpph/   网页的内容到EXCEL   

lzxdy

供参考：
jrj.rar (26.43 KB, 下载次数: 193)

2015-12-9 22:30 上传

点击文件名下载附件

YZC51

学习2楼
Sub pk10()
    Dim arr()
    On Error Resume Next
    [a3:n9999] = ""
    Set html = CreateObject("htmlfile")
    Set ms = CreateObject("Msxml2.XMLHTTP")
    n = 57
    m = 3
    [a3:n999].ClearContents
    str1 = "http://q.jrjimg.cn/?q=cn|s|sa&c=s,ta,tm,sl,cot,cat,ape&n=hqa&o=pl,d&p="
    str2 = "050"
    For page = 1 To n
            ur1 = str1 & page & str2
            ms.Open "GET", ur1, False
            ms.Send
            While Not ms.readyState = 4
                DoEvents
            Wend
            str3 = ms.ResponseText
            str3 = Split(str3, "[""")
            p = UBound(str3)
            ReDim arr(1 To p, 1 To 14)
        For i = 1 To p
            str3(i) = Replace(str3(i), """", "")
            str3(i) = Replace(str3(i), "]," & Chr(10), "")
            str3(i) = Replace(str3(i), "]" & Chr(10) & "]};" & Chr(10), "")
            str4 = Split(str3(i), ",")
            q = UBound(str4)
            For j = 1 To 14
                arr(i, j) = str4(j)
            Next
        Next
        Cells(m, 1).Resize(p, 14) = arr
        m = m + p
    Next
End Sub

lzxdy

作了适当的整理了，受看多了：
jrj.rar (37 KB, 下载次数: 322)

2015-12-10 14:48 上传

点击文件名下载附件

tzjx200521

lzxdy 发表于 2015-12-10 14:48
作了适当的整理了，受看多了：

http://q.jrjimg.cn/?q=cn|s|sa&c=s,ta,tm,sl,cot,cat,ape&n=hqa&o=pl,d&p=     这网址怎么来的？？？？
ms.readyState = 4    这句啥意思？

YZC51

楼主应该给4楼点个赞，加个分！！！

lzxdy

tzjx200521 发表于 2015-12-10 17:07
http://q.jrjimg.cn/?q=cn|s|sa&c=s,ta,tm,sl,cot,cat,ape&n=hqa&o=pl,d&p=     这网址怎么来的？？？？
m ...

网址是由httpwatch查出的。
ms.readyState = 4 是取网页（服务器）响应状态。该循环语句也可以不用。

香川群子

lzxdy 发表于 2015-12-11 20:51
网址是由httpwatch查出的。
ms.readyState = 4 是取网页（服务器）响应状态。该循环语句也可以不用。

有一个奇怪的问题：

打开文件运行宏以后得到了新的数据，但是再次运行时数据并不实时更新，
而是重复刚才提取的数据。

我的解决办法是，关闭文件并一定要关闭Excel程序，然后再次打开Excel、打开文件，才能实时更新数据。

…………
这只是我的电脑环境的问题吗？【通过单位里的局域网、连接外网。】

范德萨

香川群子 发表于 2015-12-11 22:44
有一个奇怪的问题：

打开文件运行宏以后得到了新的数据，但是再次运行时数据并不实时更新，

CreateObject("Msxml2.XMLHTTP") 缓存不过期的话，直接读取缓存文件
CreateObject("WINHTTP.WINHTTPReQuest.5.1")没有缓存的

onlycxb

香川群子 发表于 2015-12-11 22:44
有一个奇怪的问题：

打开文件运行宏以后得到了新的数据，但是再次运行时数据并不实时更新，

清除缓存。用winhttp