用ExcelVBA下载可转债历史数据

先看结果，视频演示送上：https://www.bilibili.com/video/BV1Q3411d7gt/

制作思路的话，基本还是从“找数据源--设计表格结构--网抓实现---数据处理”这个逻辑来做。

数据源方面，东方财富这里还不错，http://quote.eastmoney.com/center/fullscreenlist.html#convertible_comparison ，具有我想要的可转债信息，如下：

表格结构方面，相对简单，一个用于行情计算，一个用于抓取历史数据，如下：

网抓方面，目前分析网页得来的所需数据，好像没有特殊的反爬措施，但是一开始有乱码，后来用xmlhttp对象解决了乱码问题，附上网抓核心代码如下：

Url = "https://hq.stock.sohu.com/mkline/bd/" & ThreeCode & "/bd_" & BondCode & "-10_2.html?_=" & TimeStamp

With CreateObject("Microsoft.XMLHTTP")
.Open "GET", Url, False
.Send
Do While .ReadyState <> 4
If Timer - TimeEach > 10 Then
MsgBox "访问超时，请检查以下链接正确性：" & Url
Exit Sub
End If
DoEvents
Loop
mystr = .responsetext
End With
' Open ThisWorkbook.Path & "\" & "测试.txt" For Binary Access Write As #1
' Put #1, , mystr
' Close #1
Dim Result As Object
Set RegExpression = CreateObject("VBScript.RegExp")
With RegExpression
.ignorecase = True '这个是忽略大小写，因为用WPS和Excel获取结果不一样，WPS为TR,Excel为tr
.Global = True
.Pattern = "dataBasic"":\[([\s\S]+)\]}\)"
Set Result = .Execute(mystr)
mystr = Replace(Result(0).submatches(0), """", "")
End With

数据处理方面，这里相对繁琐一些，返回的数据是根据fXX编号的字段，每个字段含义不同，需要单独匹配，如下总结实用的几个字段：

'下面分别用多个正则表达式匹配
'f1
'f2: 转债最新价
'f3: 涨跌幅
'f12: 转债代码
'f13
'f14: 转债名称
'f26: 上市日期
'f152
'f227: 纯债价值
'f228
'f229: 正股最新价
'f230: 正股涨跌幅
'f231
'f232: 正股代码
'f233
'f234: 正股名称
'f235: 转股价
'f236: 转股价值
'f237: 转股溢价率
'f238: 纯债溢价率
'f239: 回售触发价
'f240: 强赎触发价
'f241: 到期赎回价
'f242: 开始转股日
'f243: 申购日期

来看下最终效果：

用ExcelVBA下载可转债历史数据相关推荐

用ExcelVBA下载ETF历史数据
先看结果,视频演示送上:https://www.bilibili.com/video/BV1s8411P7s7/ 制作思路的话,基本还是从"找数据源--设计表格结构--网抓实现---数据处理 ...
用ExcelVBA下载股票板块历史数据
先看结果,视频演示送上:https://www.bilibili.com/video/BV1RD4y1J7Uw/ 制作思路的话,基本还是从"找数据源--设计表格结构--网抓实现---数据处理 ...
找到一个可以下载开放式基金历史数据的网站
http://www.dayfund.cn/ 查询后的历史数据不是分页显示,一个脚本就可以把基金历史数据全部提取出来. ======================================== ...
记一次用java从海康ISC下载rtsp历史数据过程
由于业务需要,需要从海康ISC中获取历史视频,但是查找了API只有一个获取历史RTSP的url的接口,但是这个rtsp的url用VLC播放不了,就尝试自己去抓包解析. 一.以下为用wireshark抓 ...
python 股票数据下载_如何下载股票历史数据？
1.准备开始之前,你要确保Python和pip已经成功安装在电脑上噢,如果没有,请访问这篇文章:超详细Python安装指南进行安装.如果你用Python的目的是数据分析,可以直接安装Anacond ...
java中切分字符串的方法
在我们日常工作中经常遇到截取字符串的需求,这里重点介绍两种常见的截取字符串方法. 方法一:通过split() 此方法返回的是一个字符串数组类型. 1.只传一个参数:split(String regex ...
从500彩票网站下载历史数据
#从500彩票网站下载双色球历史数据,网页另存为01.txt data = [] file = open('01.txt') for line in file:line = line.lstrip() ...
Python画图实战之画K线图【附带自动下载股票数据】
关于Python画图的基本知识可以先查看下面这篇文章Python画图(直方图.多张子图.二维图形.三维图形以及图中图)https://blog.csdn.net/weixin_41896770/art ...
Python 利用Baostock 下载股票代码，写入Mysql数据库
Baostock(证券宝)是一个免费.开源的证券数据平台(无需注册).详见点这里. 首先,用pip安装baostock.win+r输入cmd进入命令提示符界面.输入pip install baosto ...

用ExcelVBA下载可转债历史数据

用ExcelVBA下载可转债历史数据相关推荐

最新文章

热门文章