主题：[求助]为什么得不到即时的行情阿

代码如下：

dim may
dim sz1
dim sz2
dim aup
dim adn
dim dmJYS,dmHY
dim o,h,l,c
dim timePart
dim NumI,insertArr

Sub m0()
sz1=5    'pw+1
sz2=32    'N

aup=1.222992898
adn=2.92591016405253

redim may(sz1,sz2)
    On Error Resume Next
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("C:\output.xlsx")   
   
    for i=1 to sz1
        for j=1 to sz2
            may(i,j)= cdbl(objExcel.Cells(i, j).Value)  '取第一个单元格数据
        next
    next            
    objExcel.Quit
   
    dmJYS="ZJ"
    dmHY="IF01"
    call marketdata.RegReportNotify(dmHY,dmJYS)
   
    NumI=1
    redim insertArr(NumI,5)

End Sub


Sub MARKETDATA_ReportNotify(ReportData)
 '响应注册的品种行情变化通知
 msgbox dmHY
 Set rpt = marketdata.GetReportData(dmHY,dmJYS)'得到这个品种的行情报价
    c=rpt.newprice
    if o=0 then o=c
    if c>h then h=c
    if l>c then l=c
        msgbox c
end sub

在运行的时候dmHY始终没有弹出对话框，由此判断MARKETDATA_ReportNotify并没有执行；但是交易始终提示
2010-12-27 09:40:39
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 09:40:39
40009975 : CF111 - 综合交易平台：找不到合约


这是为啥啊啊啊啊啊啊啊啊？？？？？


另外重新写了一个简单的版本

Sub test()
    dmJYS="ZJ"
    dmHY="IF01"
    call marketdata.RegReportNotify(dmHY,dmJYS)
End Sub

Sub MARKETDATA_ReportNotify(ReportData)
 Set rpt = marketdata.GetReportData("ZJ","IF01")'得到这个品种的行情报价
    c=rpt.newprice
        msgbox c
end sub

但是弹出几个时间之后就不再有反映了，也不知道为啥。