东方财富网天天练

wkxxxr

onlycxb 发表于 2015-4-3 13:56
东方财富网 > 数据中心 > 年报季报 > 业绩报表

谢谢楼主做了这么多的网页提取代码和解释，网页分析的这方面知识欠缺，代码的语句有些还不能理解，比如这句 .Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJBB&fd=2014-12-31&st=13&sr=-1&p=1&ps=" & P & "&js=var%20a={pages:(pc),data:[(x)]}&stat=0&rt=47601296", False
怎么解释，特别是47601296怎么来的。有空帮忙解释，多谢！

bpodq

数据采集网址是http://quote.eastmoney.com/center/list.html#33，实现代码所对应的涨跌幅数值
行情中心首页 > 沪深股市 > 沪深A股

老师，我想在表格里面看期货行情，之前是用新浪的，但是数据不全，想在东方财富里面提取数据，里面数据比较全面 http://quote.eastmoney.com/qihuo/FG809.html ，特别是外盘，内盘，增减仓，里面有这些数据，比较全面
今开:1366
最高:1371
买入价:1347
成交量:15.19万手
仓差:0
昨结算:1368
涨停:1437
外盘:6.21万
昨收:1366
最低:1346
卖出价:1348
持仓量:29.46万手
日增:12354
成交额:41.40亿
跌停:1299
今开:1366
最高:1371
买入价:1347
成交量:15.19万手
仓差:0
昨结算:1368
涨停:1437
外盘:6.21万
昨收:1366
最低:1346
卖出价:1348
持仓量:29.46万手
日增:12354
成交额:41.40亿
跌停:1299
内盘:8.98万

以下是我原始代码
Sub 新浪()
    Dim xmlobject As Object
    Dim strReturn As String
    Dim strUrl As String
    Dim intLen As Long
    Dim intLenA As Long
    Dim arry As Variant

    Set xmlobject = CreateObject("microsoft.xmlhttp")
   
    For i = 1 To 5 '遍历，5等于当前股票行数
   
    strUrl = "http://hq.sinajs.cn/list=" & Cells(1 + i, 2) '起始代码单元格
    xmlobject.Open "GET", strUrl, False
    xmlobject.send
    If xmlobject.readystate = 4 Then
        strReturn = xmlobject.responsetext
        intLen = Len(strReturn) - 25 '剔除无关数据
        strReturn = Mid(strReturn, 22, intLen)
        arry = Split(strReturn, ",") '按逗号分隔数据，放入数组arry
        intLenA = UBound(arry) - LBound(arry) + 1 '数组长度，此处未使用，可结合For遍历arry
      
       '获取目标数据
       Cells(1 + i, 3) = arry(0) '3列连续名称
       Cells(1 + i, 4) = Round((arry(3) - arry(2)) / arry(2), 4) * 100 '涨跌幅 %
       Cells(1 + i, 5) = arry(3) '最高
       Cells(1 + i, 6) = arry(1) '不知道是什么，没用
       Cells(1 + i, 7) = arry(2) '今天开
       Cells(1 + i, 8) = arry(4) '最低
       Cells(1 + i, 9) = arry(5) '昨天收
       Cells(1 + i, 10) = arry(8) '现价
       Cells(1 + i, 11) = arry(9) '均价
       Cells(1 + i, 12) = arry(10) '昨天结算
       Cells(1 + i, 13) = arry(11) '买量
       Cells(1 + i, 14) = arry(12) '卖出量
       Cells(1 + i, 15) = arry(13) '持仓量
       Cells(1 + i, 16) = arry(14) '成交量
       Cells(1 + i, 17) = arry(15) '交易所
       Cells(1 + i, 18) = arry(16) '合约品种
       Cells(1 + i, 19) = arry(17) '今天日期
      
                     
    End If
    Next i
End Sub

请老师指点，谢谢

mzpc

老师能不能取到上海证券交易所的上市A股的数据？
http://www.sse.com.cn/assortment/stock/list/share/

lzqlaj

好贴，收藏了。

onlycxb

mzpc 发表于 2018-6-5 20:03
老师能不能取到上海证券交易所的上市A股的数据？
http://www.sse.com.cn/assortment/stock/list/share/

1. <img src="http://club.excelhome.net/forum.php?mod=image&aid=2218870&size=300x300&key=bdac617032849f45&nocache=yes&type=fixnone&ramdom=OTID8" border="0" aid="attachimg_2218870" alt="" style="font-size: 14px;">string referUrl = "http://www.sse.com.cn/assortment/stock/list/share/";
   
2.             string url = "http://query.sse.com.cn/security/stock/downloadStockListFile.do?csrcCode=&stockCode=&areaName=&stockType=1";
   
3.             string rsp = http.GetHtmlReferByGET(url,referUrl, ref cookier,"gb2312");
   
4.             richTextBox1.AppendText(rsp);

复制代码

以上是其他语言代码.可参考一下网址,防盗链网址,网页转码.

onlycxb

wkxxxr 发表于 2018-5-5 18:45
谢谢楼主做了这么多的网页提取代码和解释，网页分析的这方面知识欠缺，代码的语句有些还不能理解，比如这 ...

47601296是一个随机数

tsmcp

http://quote.eastmoney.com/stocklist.html 里的A股代码又如何抓取呢？如象无法用抓网软件抓取网址。谢谢。

xqliao

onlycxb 发表于 2015-4-11 21:03
11：

自己琢磨好几天都没弄成，在这一下找到了，正是我想要的东西，感谢onlycxb大神！！！

可是有个疑问请教下，我把 P值按提示改成”Net3"或“Net5"，出来的数据结果都和p为空值时是一样的，没有抓出3日、5日的数据，这是什么原因？或者是不是我复制整理时出现差错了？特别上传附件，请老师帮忙看下，谢谢老师！

乐开花36

十大股东持股怎样提取

ZH7266

老师，我用了一个别人写好的网抓表，但是奇怪的是有的基金取不到，怀疑是因为写的只有一页，但不知道需要改哪里，请老师指点。 基金.rar (17.01 KB, 下载次数: 48)

2019-3-24 09:57 上传

点击文件名下载附件