共7 条记录, 每页显示 10 条, 页签: [1]

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

1楼

wangwatercup 发表于：2010/12/27 9:41:07

代码如下：

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

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

[此贴子已经被作者于2010-12-27 9:56:03编辑过]

2楼

Morgan 发表于：2010/12/27 10:24:05

Sub TLStart()
End Sub

'响应注册的品种行情变化通知
Sub MARKETDATA_ReportNotify(ReportData)

end sub

配合使用

3楼

Morgan 发表于：2010/12/27 10:24:25

2个缺一不可

4楼

wangwatercup 发表于：2010/12/27 11:05:31

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

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

但是没有任何反馈，除了如下信息：

2010-12-27 11:04:30
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:30
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:37
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:37
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:38
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:04:39
40009975 : CF109 - 综合交易平台：找不到合约

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

2010-12-27 11:04:40
40009975 : CF109 - 综合交易平台：找不到合约

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

2010-12-27 11:04:40
40009975 : CF109 - 综合交易平台：找不到合约

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

2010-12-27 11:04:40
40009975 : CF109 - 综合交易平台：找不到合约

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

2010-12-27 11:04:41
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:04:41
40009975 : CF111 - 综合交易平台：找不到合约

5楼

wangwatercup 发表于：2010/12/27 11:22:39

问题找到了，是因为我在此之前运行了一段程序

Sub TLStart()
'注册CF09和CF11品种
call marketdata.RegReportNotify("CF09","ZQ")
call marketdata.RegReportNotify("CF11","ZQ")
End Sub

Sub MARKETDATA_ReportNotify(ReportData)
'得到这两个品种的行情报价

Set Report1 = marketdata.GetReportData("CF09","ZQ")
Set Report2 = marketdata.GetReportData("CF11","ZQ")

、、、、、、略
End Sub

虽然我注册了上面的品种，但是当我再次注册股指期货IF01合约的时候就咋都不行了，也许是因为我使用的是免费版，至多注册3个。现在不知道如何取消品种数据注册，试了以下的语句还是不行：

sub test2()
call marketdata.UnRegReportNotify("CF09","ZQ")
call marketdata.UnRegReportNotify("CF11","ZQ")
msgbox "fuckssss"
end sub

除非关掉金字塔然后重新启动才会避免上面注册的品种，但是当我试图注册if01数据的时候又跳出了下面的信息：
2010-12-27 11:25:40
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:41
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:41
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约

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

2010-12-27 11:25:41
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:41
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:42
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:43
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:44
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:45
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:46
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:47
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF109 - 综合交易平台：找不到合约

2010-12-27 11:25:48
40009975 : CF111 - 综合交易平台：找不到合约

[此贴子已经被作者于2010-12-27 11:26:22编辑过]

6楼

wangwatercup 发表于：2010/12/27 18:23:51

解决问题了。感觉：
（1）只要没有关掉金字塔，即使重新启动vba，注册数据反映还会进行；
（2）不知道命令UnRegReportNotify有问题，还是我下面的代码有问题，总之无法在不重新启动金字塔的条件下取消数据注册。代码如下：

sub test2()
call marketdata.UnRegReportNotify("CF09","ZQ")
call marketdata.UnRegReportNotify("CF11","ZQ")
msgbox "****ssss"
end sub

7楼

一亩三分地 发表于：2010/12/27 18:37:24

再实盘测试看看。我使用的情况是UnRegReportNotify有效

共7 条记录, 每页显示 10 条, 页签: [1]