标题：GetHistoryData用不了啊

1楼

qq代人发帖 发表于：2017/7/28 8:57:53

VBA开发，好像GetHistoryData、GetHistoryDataByDate都用不了啊，返回结果都时空的，数据预先补充了，用这些方法还是取不到
账户是专业版

2楼

lh1988 发表于：2017/7/28 9:03:02

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:00:00

----------------------

2017/7/24

2017/7/27

3楼

yukizzc 发表于：2017/7/28 9:16:17

确定看下上海市场的50你本地数据是否有，本地这边测试没有问题

4楼

lh1988 发表于：2017/7/28 9:19:47

有的呀，你看日志GetHistoryDataByDate有返回结果，GetHistoryData没有返回

5楼

yukizzc 发表于：2017/7/28 10:38:10

本地这边测试正常，留个联系方式工作人员远程看下吧

共5 条记录, 每页显示 10 条, 页签: [1]