东方财富网天天练

ZH7266

onlycxb 发表于 2015-3-9 17:04
2.东方财富_货币型基金每日收益一览表

东方财富现在是从第4列开始有代码，这里改成3报错。应该如何改

ZH7266

onlycxb 发表于 2015-3-9 17:04
2.东方财富_货币型基金每日收益一览表

1. Sub 东方财富_货币型基金每日收益一览表()
   
2.     Dim html As Object, arr, db, Tr, Td, i, j
   
3.     Dim arrData(1 To 10000, 1 To 11)
   
4.     Set html = CreateObject("htmlfile")
   
5.     With CreateObject("msxml2.xmlhttp")
   
6.     .Open "GET", "http://fund.eastmoney.com/HBJJ_dwsy.html", False
   
7.     .send
   
8.     html.write StrConv(.Responsebody, vbUnicode)
   
9.     End With
   
10.     Set db = html.all.tags("table")("oTable")
    
11.     Cells.Clear
    
12.     For Each Tr In db.Rows
    
13.     i = i + 1
    
14.     j = 0
    
15.     For Each Td In Tr.Cells
    
16.     j = j + 1
    
17.     If i > 2 And j > 3 Then arrData(i - 2, j - 3) = Td.innerText        '从第三行,第三列开始取数据
    
18. Next
    
19. Next
    
20. ActiveSheet.[a1].Resize(i - 3, j - 2) = arrData
    
21. End Sub
    

复制代码

东方财富现在货币基金是第4列才有基金代码，这样改测试不过，不知道哪里问题

ZH7266

onlycxb 发表于 2015-3-9 17:09

货币基金的表1和表2有什么区别

jkliuu2018

学习再学习，努力

AlfaBeta7

请教楼主专家，
如何用ExcelVBA访问以下网页的第2页，第3页...第n页？
http://fundf10.eastmoney.com/jjgg_000021_3.html
http://fund.eastmoney.com/gonggao/dingqibaogao.html
多谢。

再多问一句，
1. http://fundf10.eastmoney.com/jjgg_000021_3.html用Edge打开，
2. 鼠标右键，选“查看源"
3. 进入f12 调试html界面
4. menu 选"调试程序", 第379行代码如下：
<a  style="width:90%;line-height:20px;" title="{{value.TITLE}}" >{{value.TITLE}}</a>

请问：{value.FUNDCODE},{value.ID} vba能读取吗？

AlfaBeta7

AlfaBeta7 发表于 2019-10-20 12:53
请教楼主专家，
如何用ExcelVBA访问以下网页的第2页，第3页...第n页？
http://fundf10.eastmoney.com/jjg ...

找到了下面网页，按其介绍已完成按页码换页面。
https://zhidao.baidu.com/question/498255138141559444.html

saimenl

老师，可以抓取实时资金数据吗？
http://data.eastmoney.com/zjlx/601328.html

以下这段数据即可

类型        流入        流出
超大单        5342.2615万元        -4988.6214万元
大单        7373.6959万元        -7645.4308万元
中单        5601.9233万元        -5570.5801万元
小单        2653.1332万元        -2766.3815万元

answer6141

收藏收藏收藏收藏

evg

老师你好,如何取得中国平安   总市值?
谢谢!
Sub 总市值()
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://quote.eastmoney.com/sh601318.html", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.setRequestHeader "Referer", ""
.send
strText = .responsetext
End With
[b1] = "" & Split(Replace(Split(strText, "市盈(动)")(1), "<", ">"), ">")(60)
End Sub

莫悠悠

onlycxb 发表于 2015-4-7 21:27
没有具体研究过。不玩股票，主要是利用此网数据练习网抓。如果能够找到网址，可以偿试进行相关分析抓取

请教如何抓取数据？
http://data.eastmoney.com/zjlx/000802.html
个股的资金流向数据怎么抓取？
用EXCEL的导入网站数据不出现选定数据区域，请求高人协助，谢谢