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

lixjun · 发表于 2011-4-1 00:02

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

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

xmyjk · 发表于 2011-4-1 00:16

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

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

以后多多共同学习就是。

lixjun · 发表于 2011-4-1 00:32

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

xmyjk · 发表于 2011-4-2 00:55

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

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

复制代码

120HYH · 发表于 2011-4-2 09:27

佩服，学习下。

lixjun · 发表于 2011-4-2 14:08

谢谢老师！刚看见，马上试了一下。提示“错误9”，根据这两天的学习，估计是分割字符时有点问题

提示如下图。正在研究您超牛网的代码，它的网页源代码里有所有股票的数据。“散户大家庭”里只有表头，没有个股数据。尽然也能用这种方式提取。好好学习一下！！

xmyjk · 发表于 2011-4-2 14:25

奇怪了，中午还可以用

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

xmyjk · 发表于 2011-4-2 14:33

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

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 · 发表于 2011-4-2 15:52

原帖由 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 · 发表于 2011-4-2 16:16

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

晚上再试看看。

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

		自动登录	找回密码
密码			免费注册

[求助] 请老师写个采集股票数据的代码

回复 21楼 lixjun 的帖子

http://www.shdjt.com/sort.asp 这个也做好了

回复 24楼 xmyjk 的帖子