需要翻页提取多页网页数据问题，谢谢浪板！

wushuangqi

                     看了不少以前的帖子，也尝试了很多次都不成功。
            http://quote.cfi.cn/quotelist.as ... page=1&mystock=
                     我想把以上网址全部页面（现在是22页）的数据资料一次全部导入EXCEL2007表格，用VBA程序。一页一页复制确实太慢了。
            谢谢各位前辈指导，看了以前浪板不少帖子，还是没能在这个网页实现导入。

northwolves

1. 
   
2. Sub Macro1()
   
3. Dim p&
   
4. For p = 1 To 5
   
5. With ActiveSheet.QueryTables.Add("URL;http://quote.cfi.cn/quotelist.aspx?sortfd=%e4%bb%a3%e7%a0%81&sectypeid=1&sortway=asc&page=" & p, [a65536].End(3).Offset(1, 0))
   
6.         .WebTables = "2"
   
7.         .Refresh BackgroundQuery:=False
   
8.     End With
   
9.     Next
   
10. End Sub
    

复制代码

xmyjk

1. Sub Test()
   
2.     Dim i As Integer, p As Integer, rows As Long
   
3.     Dim arr() As String, tmp() As String
   
4.         
   
5.     On Error Resume Next
   
6.     [a1:p1] = Split("代码,名称,最新,涨跌,涨跌幅,前收,开盘,最高,最低,成交量,成交额,换手率,前一周涨跌,前一月涨跌,总股本,流通股本", ",")
   
7.     For p = 1 To 22
   
8.     With CreateObject("Msxml2.XMLHTTP")
   
9.         .Open "get", "http://quote.cfi.cn/quotelist.aspx?sortfd=%E4%BB%A3%E7%A0%81&marketid=&hy=&sectypeid=1&sortway=asc&stockcode=&page=" & p & "&mystock=", False
   
10.         .send
    
11.         tmp() = Split(Split(Split(Replace(.responsetext, "<nobr>", ""), "流通股本</a></td></tr>")(1), "</tr></table>1")(0), "<td>")
    
12.     End With
    
13.     ReDim arr(UBound(tmp) \ 16, 15)
    
14.     For i = 1 To UBound(tmp)
    
15.        arr((i - 1) \ 16, (i - 1) Mod 16) = Split(Filter(Split(tmp(i), ">"), "</")(0), "</")(0)
    
16.     Next
    
17.     rows = [a65536].End(xlUp).Offset(1, 0).Row
    
18.     Application.Goto "R" & rows & "c1"
    
19.     Cells(rows, 1).Resize(UBound(arr) + 1, 16) = arr
    
20.     Next
    
21.         
    
22.     [a:p].Columns.AutoFit
    
23.     MsgBox "Ok"
    
24. End Sub

复制代码

wushuangqi

非常感谢两位老师指导，大概看懂了两位老师采用的方法，由于VBA基础不扎实，里面的代码很多没理解，以后加强学习。狼版的代码里面的 1 TO 5，表示导入1-5页数据，我要导入22页数据，就改为1 TO 22 了，但是以后股票数量会增加，页数也会增加，我把22改大很多，如改为100，是否能导入1-100页（数据不到100页就导入现有的全部页数的数据）。或者有更好的方法可以扫描或确认现在一共有多少页，不管页数增加多少，然后把全部页数的数据都导入。
       上旋下弦月老师的方法不知道能实现这个功能不，现在还测试不了，以后股票数量增多，页数增加了就能知道了。
       还想请教一个问题，如果我想提高数据导入速度，不需要导入全部数据，只导入代码,名称,最新,总股本,流通股本几个项目的数据，能否实现，速度应该会有所增加，用时也会减少，再次感谢各位老师的指导！

xmyjk

原帖由 wushuangqi 于 2011-4-1 00:24 发表
非常感谢两位老师指导，大概看懂了两位老师采用的方法，由于VBA基础不扎实，里面的代码很多没理解，以后加强学习。狼版的代码里面的 1 TO 5，表示导入1-5页数据，我要导入22页数据，就改为1 TO 22 了，但是以后股票数 ...

我的原理一样的，只要你页面源代码格式不变，你把22继续往后该一样的。

没办法加快速度，一样都是要取得每个页面的源代码（XMLHTTP）或者查询了某个页面(QUERYTABLE)后取得数据，所以即使你减少数据需求的列数，依然还是要访问页面。
取决你的网络环境。

johnny05

这句话是什么意思？

tmp() = Split(Split(Split(Replace(.responsetext, "<nobr>", ""), "流通股本</a></td></tr>")(1), "</tr></table>1")(0), "<td>")

lsftest

可以使用正则表达式从网页源码中知道究竟有多少页。

xmyjk

原帖由 lsftest 于 2011-4-17 18:07 发表
可以使用正则表达式从网页源码中知道究竟有多少页。

lsftest老师回来啦，好久不见啊。谢谢指教。

[ 本帖最后由 xmyjk 于 2011-4-17 18:52 编辑 ]

lsftest

原帖由 xmyjk 于 2011-4-17 18:50 发表


lsftest老师回来啦，好久不见啊。谢谢指教。

哈哈。。。别称老师。。。都是来eh学习的。。。
长假将近，心有点散了。。就溜过来放松放松。。。。
今天先撤了。。。51再聚。。。。

xmyjk

原帖由 lsftest 于 2011-4-17 18:56 发表

哈哈。。。别称老师。。。都是来eh学习的。。。
长假将近，心有点散了。。就溜过来放松放松。。。。
今天先撤了。。。51再聚。。。。

之前教了我很多网页的知识，称老师应当的，呵呵，五一再见咯。