vba输出历史行情数据不对

Storm

Sub output()
Set mkt = CreateObject("Stock.ArrayString")
mkt.AddBack("ZQ")
mkt.AddBack("SQ")
mkt.AddBack("DQ")
mkt.AddBack("GQ")
mkt.AddBack("INE")
for k=0 to mkt.Count-1
      Market=mkt.GetAt(k)
      Count = MarketData.GetReportCount(Market)
      For j = 0 To Count-1 '2
        Set Report1 = MarketData.GetReportDataByIndex(Market,j)
        tcode=Report1.Label   
        L=len(tcode)
        Ltcode=Lcase(tcode)
        if Ltcode="rb00"  then

            Set Data1 = MarketData.GetHistoryData(tcode,Market,5,1100)
            for i=0  to Data1.count-1
                text=Data1.date(i) & "," & Data1.Open(i) & "," & Data1.High(i) & "," & Data1.Low(i) & "," & Data1.Close(i) & "," & Data1.Volume(i) & "," & Data1.Openint(i)
                Document.DebugFile "e:\others\temp\" & tcode & ".txt",text, 0

            next
        end if

        marketdata.DestroyHistoryData
      next
next
set mkt = nothing
end sub


输出来的结果不对
2024/4/30,4895.946,4925.151,4824.259,4853.464,1694316,1688958
2024/5/6,4874.705,4962.322,4874.705,4958.34,1265164,1820186
2024/5/7,4958.34,4970.288,4931.789,4942.409,994251,1822429
图表上设置的是等比复权,向前复权

技术006

具体哪个品种。什么地方不对

Storm

测了2个都不对,螺纹钢和黄金.输出来的价格都不对啊

Storm

Storm 发表于 2024-5-7 17:13
测了2个都不对,螺纹钢和黄金.输出来的价格都不对啊

这段代码你可以修改输出路径后直接运行看看

补充内容 (2024-5-7 20:53):
最新的7.00正式版

技术015

你检查看看是不是因为复权问题导致得，你图表上取消复权了再对比看看

技术006

本地测试正常。带小数点是因为等比复权。而k线图显示的价格是按照变动价位整理过的