| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- GetHistoryData用不了啊 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=156327) |
| -- 作者：qq代人发帖 -- 发布时间：2017/7/28 8:57:53 -- GetHistoryData用不了啊 VBA开发，好像GetHistoryData、GetHistoryDataByDate都用不了啊，返回结果都时空的，数据预先补充了，用这些方法还是取不到 账户是专业版 |
| -- 作者：lh1988 -- 发布时间：2017/7/28 9:03:02 -- GetHistoryData不可用，GetHistoryDataByDate可用 Sub Test1()
Dim Data
Application.MsgOut "......................"
Set Data = marketdata.GetHistoryData("510050","SH",5)
Application.MsgOut Data.Count \'打印输出数据量
Application.MsgOut Data.Date(0) \'输出第一个数据日期
Application.MsgOut Data.Date(Data.Count-1)\'输出最后一个数据日期
Application.MsgOut "----------------------"
Dim Data1
set Data1= marketdata.GetHistoryDataByDate("510050","SH",5,"2017/7/24","2017/7/27")
Application.MsgOut Data1.Count \'打印输出数据量
Application.MsgOut Data1.Date(0) \'输出第一个数据日期
Application.MsgOut Data1.Date(Data1.Count-1)\'输出最后一个数据日期
\'数据处理完毕后,清理缓冲区
marketdata.DestroyHistoryData End Sub 日志： ...................... 0 0:00:00 0:00:00 ---------------------- 4 2017/7/24 2017/7/27 |
| -- 作者：yukizzc -- 发布时间：2017/7/28 9:16:17 -- 确定看下上海市场的50你本地数据是否有，本地这边测试没有问题 |
| -- 作者：lh1988 -- 发布时间：2017/7/28 9:19:47 -- 回复楼上 有的呀，你看日志GetHistoryDataByDate有返回结果，GetHistoryData没有返回 |
| -- 作者：yukizzc -- 发布时间：2017/7/28 10:38:10 -- 本地这边测试正常，留个联系 方式工作人员远程看下吧 |