请老师写个采集股票数据的代码

lixjun

原帖由 xmyjk 于 2011-3-31 23:39 发表
试看看，如何？

很棒！！2116只股票完整提取，多余的“点评”字样也去掉了！认真学习一下！非常感谢老师不厌其烦的解答和帮忙！多谢多谢！！

xmyjk

呃，客气了，问题解决了就好。

楼主也是满厉害的，看了你自己仿照做的一些代码，理解得还是很不错的，只缺VBA的一些语言基础，相信你还是很有天赋的

以后多多共同学习就是。

lixjun

多谢老师鼓励！基础太差了，只是愿意琢磨EXCELVBA这样很难理解又很有用的计算机知识。还望老师多多赐教！

xmyjk

代码如下，excel如附件，你测试下。
本工具还能依据你所输入需要数据的日期进行采集。

1. Option Explicit
   
2. Sub Test()
   
3.     Dim tmp() As String, i As Integer, arr() As String, d As String, p As Integer, n As Long, xmlhttp As Object, sh As Worksheet
   
4.                
   
5.     d = Format(Worksheets(1).Cells(10, 4).Value, "yyyy-mm-dd")
   
6.    
   
7.     Set sh = Sheets.Add(AFTER:=Worksheets(1))
   
8.     sh.Name = Format(Now, "采集时间yyyy年mm月dd日hh时NN分")
   
9.     sh.[a1:AL1] = Split("序,日期,更新时间,股票代码,股票名称,最新,涨幅,ddx,ddy,ddz,主动率,通吃率,股价涨速1分钟,5日ddx,5日ddy,60日ddx,60日ddy,ddx10(次),ddx10(连),特大差,大单差,中单差,小单差,活跃度,单数比,特大买入,特大卖出,大单买入,大单卖出,中单买入,中单卖出,小单买入,小单卖出,换手率,买卖差,量比,每股收益,股票名称", ",")
   
10.    
    
11.     For p = 1 To 21
    
12.     Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
    
13.     With xmlhttp
    
14.         .Open "get", "http://www.shdjt.com/sort.asp?sortname=&cxrq=" & d & "&sort=&page=" & p, False
    
15.         .send
    
16.         tmp() = Split(Split(Split(Replace(StrConv(.responsebody, vbUnicode, &H804), "><a class=", "a class="), "</thead>")(1), "<span id=""bar""")(0), "<td")
    
17.     End With
    
18.     ReDim arr(UBound(tmp) \ 38, 37)
    
19.     For i = 1 To UBound(tmp)
    
20.        arr((i - 1) \ 38, (i - 1) Mod 38) = Split(Split(tmp(i), ">")(1), "</")(0)
    
21.     Next
    
22.    
    
23.     n = sh.[a65536].End(xlUp).Row + 1
    
24.     sh.Cells(n, 1).Resize(UBound(arr) + 1, 38) = arr
    
25.     Erase tmp
    
26.     Erase arr
    
27.     Set xmlhttp = Nothing
    
28.    
    
29.     Next
    
30.    
    
31.     sh.[a:AL].Columns.AutoFit
    
32.    
    
33.     MsgBox "Ok"
    
34. End Sub
    

复制代码

120HYH

佩服，学习下。

lixjun

谢谢老师！刚看见，马上试了一下。提示“错误9”，根据这两天的学习，估计是分割字符时有点问题
提示如下图。正在研究您超牛网的代码，它的网页源代码里有所有股票的数据。“散户大家庭”里只有表头，没有个股数据。尽然也能用这种方式提取。好好学习一下！！

xmyjk

奇怪了，中午还可以用

这个网站很奇怪，好像早上，晚上都可以用，下午就会出现这个问题，奇怪了。

xmyjk

好像每天下，它的数据采集的网址就变成了

http://page.shdjt.com/sort.asp?s ... ort=desc&page=2

http://page.shdjt.com/sort.asp?sortname=&cxrq=2011-04-01&sort=desc&page=2

lixjun

原帖由 xmyjk 于 2011-4-2 14:33 发表
好像每天下，它的数据采集的网址就变成了

http://page.shdjt.com/sort.asp?s ... ort=desc&page=2

http://page.shdjt.com/sort.asp?s ... ort=desc&page=2

估计是这类网站的防范措施，经常更换源代码。如果有规律还行，没规律就麻烦了。新脚本是不是运行快很多？

xmyjk

估计是比较规律，可能下午时候，就开始不能直接访问，采取防盗链的转向控制。

晚上再试看看。

还好那个上市、深市和创业版的还能用。