Sub APPLICATION_VBAStart()
application.MsgOut "开始运行..."
dim my_HistoryData, date_array(250)
Set my_HistoryData = marketdata.GetHistoryData("000001", "SH", 5)
for i = 750 to 1000 -1
date_array(i-750) = my_HistoryData.Date(i)
next
for date_i = 1 to Ubound(date_array) - 1
date_i_b_str = date_array(date_i-1)
date_i_e_str = date_array(date_i)
application.MsgOut date_i_b_str & " " & date_i_e_str
my_HistoryData = marketdata.GetHistoryDataByDate("600109", "SH", 5, date_i_b_str, date_i_e_str)
application.MsgOut my_HistoryData.count & " " & my_HistoryData.close(0)
marketdata.DestroyHistoryData
next
输出结果:
开始运行...
2014/1/21 2014/1/22
开始运行...
0:00:00 0:00:00
开始运行...
2014/1/21 2014/1/22
不但报错,而且多次运行的输出结果也很奇怪,每次都不一样,如上。