| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- [求助]为什么得不到即时的行情阿 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=4591) |
| -- 作者：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编辑过]
|
| -- 作者：Morgan -- 发布时间：2010/12/27 10:24:05 -- Sub TLStart() End Sub \'响应注册的品种行情变化通知 end sub 配合使用 |
| -- 作者：Morgan -- 发布时间：2010/12/27 10:24:25 -- 2个缺一不可 |
| -- 作者：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 - 综合交易平台：找不到合约 |
| -- 作者：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编辑过]
|
| -- 作者：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 |
| -- 作者：一亩三分地 -- 发布时间：2010/12/27 18:37:24 -- 再实盘测试看看。我使用的情况是UnRegReportNotify有效 |