[已解决]求VBA代码获取网页中的一个特定数值？

philobj

quote.stockstar.com/stock/ranklist_a_3_1_1.html该网页中目前共有83页，求VBA代码来获取该值，谢谢！

最佳答案

月排行榜 / 总排行榜

xdd_sky

2013-7-17 23:12

philobj 发表于 2013-7-17 21:34
quote.stockstar.com/stock/ranklist_a_3_1_1.html不让发网址，前面省去了http，附件就新建工作簿即可，获 ...

网页源代码中找不到83这个数据   用的总记录数除以每页的记录数计算的页面数。。。

跳转到最佳答案楼层

xdd_sky

给网址和相应的附件  还有你要取的数值

philobj

xdd_sky 发表于 2013-7-17 21:26
给网址和相应的附件  还有你要取的数值

quote.stockstar.com/stock/ranklist_a_3_1_1.html不让发网址，前面省去了http，附件就新建工作簿即可，获取该网页中的页数，请参考附图，谢谢！

xdd_sky

philobj 发表于 2013-7-17 21:34
quote.stockstar.com/stock/ranklist_a_3_1_1.html不让发网址，前面省去了http，附件就新建工作簿即可，获 ...

网页源代码中找不到83这个数据   用的总记录数除以每页的记录数计算的页面数。。。

爱疯

学习找，找不着83，我也是像楼上这么除来的

1. 
   
2. Sub test()
   
3.     Dim A, B, i, n
   
4. 
   
5.     '求记录总数
   
6.     With CreateObject("MSXML2.XMLHTTP.3.0")
   
7.         .Open "GET", "http://quote.stockstar.com/stock/ranklist_a_3_1_1.html", False
   
8.         .send
   
9.         A = Split(.responseText, Chr(10))
   
10.         For i = 0 To UBound(A)
    
11.             If InStr(A(i), "记录总数") Then Exit For
    
12.         Next i
    
13.     End With
    
14.     B = Split(A(i + 1), """")
    
15.     n = B(UBound(B) - 1)
    
16.    
    
17.     '页数 = 记录总数 / 每页条数
    
18.     MsgBox IIf(n \ 30, Int(n / 30) + 1, Int(n / 30))
    
19. End Sub
    

复制代码

philobj

谢谢楼上两位

philobj

爱疯 发表于 2013-7-17 23:19
学习找，找不着83，我也是像楼上这么除来的

谢谢你！不好意思，最佳答案只有一个给了你楼上