怎么会运行过程中说缺少对象呢?

weishao

        Set hisshort = CreateObject("Stock.Array")
        set hisshort = MarketData.GetHistoryData(stklabel,marketname,cyctype,kcount)
        datashortcount = hisshort.count
        Application.PeekAndPump
        call pztradetime(stkname)
        ReDim hisshortprice(datashortcount)
        ReDim hisshortdate(datashortcount)
        If kcount > datashortcount Then
                Application.MsgOut StkLabel&",短周期分钟数据数量="&datashortcount&"少于需要的数据数量:"&kcount
                Application.MsgOut StkLabel&",需补充5分钟数据后再运行VBA,交易"               
                application.PostMessage(32797)
        Else
                dim ishort               
                ReDim timeshort(datashortcount)
                ReDim timeshorttojzt(datashortcount)
                ReDim dateshorttojzt(datashortcount)
                For ishort = datashortcount - 1 To 0 Step -1
                        hisshortprice(ishort) = hisshort.close(ishort)'===============>怎么会运行过程中说缺少对象呢?
                        'shortopenint(ishort) = hisshort.Openint(ishort)
                        hisshortdate(ishort) = hisshort.date(ishort)

技术006

1.第一句是创建数组对象，第二句是数据对象，两个对象名重复。代码部分中第一句根本不需要
2.set hisshort = MarketData.GetHistoryData(stklabel,marketname,cyctype,kcount)创建对象失败，才可能导致hisshort对象无效。检查你代码中定义的参数值。stklabel,marketname,cyctype,kcount

weishao

还是处同样的错

技术006

这是什么？打算用数组保存？如果是应该是数组对象名.xxx
如果是普通变量，不应该带有(IShort)

weishao

hisshortprice()是用来保存收盘价的数组

技术006

vba中数组要创建数组对象后，通过对应的方法才能对数组即兴处理。

weishao

hisshortprice()是一个动态变量,使用前已经redim数组大小=datashortcount,然后把hisshort的对应的close赋值给hisshortprice()
而已,程序可以运行,单动不动就出现"缺少对象"

技术006

运行报错说明代码写的就是有问题。所谓的能运行是，因为其外部有if条件，不一定能立即执行到这个位置。你可以精简代码，或者针对性增加相关变量的msgout输出。逐步定位到造成运行报错的原因。

weishao

又变成类型不匹配了