作者：绿色风
分类：
时间：2022-08-17
浏览：122
楼主
xmyjk |
Q:如何获取东方财富网沪深两市实时资金流向的排行榜，网址如下：
http://data.eastmoney.com/zjlx/detail.html
A:思路，利用采编工具，获得一次性取数的实际网址：
http://data.eastmoney.com/zjlx/data.aspx?type=detail&cate=0&day=1&sortType=6&sortRule=-1&pageSize=500000&page=1
然后调用XMLHTTP对象，去获取数据，然后处理文本，填入工作表。- Option Explicit
- Sub test()
- Dim tmp() As String, i As Long, arr() As String, xmlhttp As Object, N As Long
- [A1].CurrentRegion.Offset(1).Clear
- Set xmlhttp = CreateObject("Microsoft.XMLHTTP") '创建XMLHTTP对象
- With xmlhttp
- .Open "get", "http://data.eastmoney.com/zjlx/data.aspx?type=detail&cate=0&day=1&sortType=6&sortRule=-1&pageSize=500000&page=1&rt=" & Rnd(), False '设定访问网址，RND的随机数可以使再次访问网页取最新数据
- .send '发包
- tmp = Split(Split(Split(Replace(.responsetext, """,""", ","), """:[""")(1), """],")(0), ",") '文本处理，把数据都切入一唯数组
- End With
- ReDim arr(UBound(tmp) \ 16, 15) '按每16个为一行切入，并换行
- For i = 0 To UBound(tmp)
- arr(i \ 16, i Mod 16) = tmp(i)
- Next
- [a2].Resize(UBound(arr) + 1, UBound(arr, 2) + 1) = arr '写入单元格
- [a:p].Columns.AutoFit
- Erase tmp
- Erase arr
- Set xmlhttp = Nothing
- MsgBox "Ok"
- End Sub
 网页取数.zip
|
2楼
唐醒之 |
前排占楼学习~** |
3楼
xyf2210 |
学学 |
4楼
cg372101 |
谢谢 |
5楼
hylees |
有用，谢谢楼主 |
6楼
cg372101 |
太强悍了！能问下版主老师，那个汇集成一页的网址你是怎么“挖掘”出来的吗？是什么采编工具呢？谢谢！ |
7楼
紫玲珑60418 |
学习下，很实用
 |
8楼
梅花石 |
谢谢，VBA真强大 |
9楼
fzzl_1989 |
问一下版主，采编工具能具体介绍一下吗，我现在也遇到所有页面的我网址都是一样的情况~想学习一下版主的方法**谢谢！ |
10楼
liucq |
httpfox或者Fiddler2 |
11楼
小舟 |
 |
12楼
老糊涂 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一