作者：绿色风
分类：财会金融
时间：2022-08-18
浏览：122
楼主
xmyjk |
Q:如何提取酷基金网开放式基金的每日净值(http://www.ourku.com/index_kfjj.html)
A:首先，加载页面，同时打开fidddler等抓包工具，抓包，会发现，其实数据，直接就存在http://www.ourku.com/index_kfjj.html这个链接里面了。
后续就是文本处理了。数据都处于display:none和</div>之间，直接切进来。
每行用"|数字_"间隔，行内每个数据用“|”，把“|数字_”替换成"|"，然后切成连贯数字，每16个换行即可。- Option Explicit
- Sub test()
- Dim tmp() As String, i As Integer, arr() As String, xmlhttp As Object, N As Long
-
- ActiveSheet.UsedRange.Offset(1).Clear
- Set xmlhttp = CreateObject("Microsoft.XMLHTTP") '创建对象
- With xmlhttp
- .Open "get", "http://www.ourku.com/index_kfjj.html", False '设定访问网址
- .send '发包
- tmp = Split(Replace(Replace(Replace(Split(Split(StrConv(.responsebody, vbUnicode), "display:none "">")(1), "</div>")(0), "|3_", "|"), "|1_", "|"), "|2_", "|"), "|") '切入连贯数组
- End With
- ReDim arr(UBound(tmp) \ 16, 15) '定义结果二维数组
- For i = 0 To UBound(tmp) '历遍大数组
- If i = 0 Then arr(i \ 16, i Mod 16) = Split(tmp(i), "_")(1) Else arr(i \ 16, i Mod 16) = tmp(i) '每16个为一行进行切分
- Next
- [a2].Resize(UBound(arr) + 1, UBound(arr, 2) + 1) = arr '将结果二维数组导出
- '[a:g].Columns.AutoFit
- Erase tmp
- Erase arr
- Set xmlhttp = Nothing
-
- MsgBox "Ok"
- End Sub
 基金.zip
|
2楼
千年一梦遥 |
 师傅,我对你太佩服了 |
3楼
水星钓鱼 |
谢谢分享这个案例 |
4楼
lrlxxqxa |
感谢分享。 |
5楼
芐雨 |
谢谢分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一