标题：admin老大请进，关于RegReportNotify的问题

 写了一段测试代码：
Dim debugFile

Sub Test1()
    logSpec=application.AppPath&"\debug.log"
    Set fso=createobject("Scripting.FileSystemObject")
    Set debugFile=fso.OpenTextFile(logSpec,2,1)
    Call marketdata.RegReportNotify("ZN12","SQ")
    Call marketdata.RegReportNotify("Y05","DQ")
    Call marketdata.RegReportNotify("L01","DQ")
    Call marketdata.RegReportNotify("M05","DQ")
    Call marketdata.RegReportNotify("CF01","ZQ")
    Call marketdata.RegReportNotify("RB01","SQ")
    Call marketdata.RegReportNotify("RU01","SQ")
    Call marketdata.RegReportNotify("SRY05","ZQ")
End Sub

Sub MARKETDATA_ReportNotify(ReportData)
    debugFile.WriteLine(ReportData.Label)
End Sub

Sub Test2()
    Call marketdata.UnRegReportNotify("ZN12","SQ")
    Call marketdata.UnRegReportNotify("Y05","DQ")
    Call marketdata.UnRegReportNotify("L01","DQ")
    Call marketdata.UnRegReportNotify("M05","DQ")
    Call marketdata.UnRegReportNotify("CF01","ZQ")
    Call marketdata.UnRegReportNotify("RB01","SQ")
    Call marketdata.UnRegReportNotify("RU01","SQ")
    Call marketdata.UnRegReportNotify("SRY05","ZQ")
    debugFile.Close
End Sub


目的测试RegReportNOtify函数，将收到的报告信息写入文件中。先运行Test1，过几分钟后运行Test2。结果写入debug.log中的信息片段如下：
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01

貌似除了开头的3合约，其它注册合约没有数据送过来，请查查原因，谢谢

目前是这样的，只能最多订阅3个合约。

正式版用户最多可以订阅超过10个。

你有空QQ找我，给你授权

 谢谢，明白了，我还以为是系统纰漏

我有个问题，想问问，既然是全推行情，为什么要订阅呢，订阅的好处和用处在什么地方呢?

订阅得好处是告诉金字塔你对哪些品种感兴趣，行情有变化就通知你，不感谢兴趣就不通知，提高金字塔得工作效率

请问不感兴趣的可以让金字塔不接收么？谢谢！

回楼上，这个问题提问过。金字塔不支持这种接收方式，服务器推送过来的数据包格式固定，不能裁减

非常感谢！

那么数据过来，解压缩，可以直接传到vba么？而不是软件里先公式调用或者图形显示。谢谢！