主题：[求助]实时的最新15个1分钟数据

 sub mtest2()
set History = marketdata.GetHistoryData("cu00","sq",0)
    'set MinuteData = marketdata.GetMinuteData("IF01","zj")

    
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True
    objExcel.Workbooks.Add
    msgbox history.count
    
    for i = 1 to History.count-1
    '将两条数据线插入到EXCEL第一、二列
        objExcel.Cells(i+1,1).Value = History.date(History.count-i-1)
        objExcel.Cells(i+1,2).Value = History.open(History.count-i-1)
        objExcel.Cells(i+1,3).Value = History.high(History.count-i-1)
        objExcel.Cells(i+1,4).Value = History.low(History.count-i-1)
        objExcel.Cells(i+1,5).Value = History.close(History.count-i-1)
        objExcel.Cells(i+1,6).Value = History.volume(History.count-i-1)
        objExcel.Cells(i+1,7).Value = History.amount(History.count-i-1)
        objExcel.Cells(i+1,8).Value = History.qt(History.count-i-1)
        objExcel.Cells(i+1,9).Value = History.openint(History.count-i-1)
    next
end sub