說(shuō)明下我是做股票的,我想監(jiān)控上證市場(chǎng)的所有股票的最新行情該怎么做?　[金字塔]

 2、ReportNotify事件

     使用ReportNotity來(lái)監(jiān)控價(jià)格變化比上面的定時(shí)讀取價(jià)格的方法好的地方是價(jià)格的每一次跳動(dòng)都逃不過(guò)這個(gè)事件的監(jiān)控，而使用定時(shí)器，則會(huì)漏掉一些價(jià)格，不如：股指每一秒鐘有2筆成交回報(bào)，用上面的方法就會(huì)漏掉一次價(jià)格變化，當(dāng)然如果你把定時(shí)器設(shè)置成500毫秒一次也可以獲取每一次的價(jià)格變化，但是這樣對(duì)系統(tǒng)資源的消耗會(huì)很大的，而是用這個(gè)事件相對(duì)占用較少系統(tǒng)資源。

    如果你是做套利的，那么對(duì)價(jià)格變動(dòng)更加敏感，使用這個(gè)事件是最好的選擇。

    這個(gè)事件的使用，需要首先注冊(cè)你要監(jiān)控的品種，使用RegReportNotify方法，代碼如下：

    sub RegIF()            '還是監(jiān)控IF06合約的價(jià)格變化

            Call MarketData.RegReportNotify("IF06","ZJ")

            '要監(jiān)控多個(gè)品種，繼續(xù)寫代碼就行了，如：

            Call MarketData.RegReportNotify("RB10","SQ")    '監(jiān)控上期的螺紋鋼10月份合約

    end sub

    把這個(gè)過(guò)程用到VBAStart事件中，就會(huì)在啟動(dòng)VBA時(shí)自動(dòng)注冊(cè)對(duì)IF06合約的監(jiān)控

    到這里為止，你只做了一半事情，很多人就是在這之后不知道怎么獲取行情數(shù)據(jù)了。別擔(dān)心，繼續(xù)看下去你就明白了。

    注冊(cè)了合約之后，需要通過(guò)另一個(gè)事件來(lái)獲取行情數(shù)據(jù)，那就是ReportNotify事件，這個(gè)事件會(huì)返回一個(gè)ReportData對(duì)象，這個(gè)更上面的一樣。

    Sub MarketData_ReportNotify(ReportData)

            '有人在這里還是用1的方法設(shè)置一個(gè)report1變量，然后取report1的返回值，這是多余的，ReportData本身就是返回的數(shù)據(jù)，直接取reportData的值就行了。

            NewPrice=ReportData.NewPrice

            stkLable=ReportData.Label

            Application.Msgout Cdate(time) & ",Code:" & stkLabel & ",NewPrice:" & NewPrice

    End Sub

}

上面的vba代碼是需要注冊(cè)某個(gè)股票代碼后才能發(fā)生[事件],如果我不注冊(cè)特定的品種,想對(duì)整個(gè)上證市場(chǎng)的股票進(jìn)行[行情監(jiān)控]我該怎么做?

使用定時(shí)器,遍歷整個(gè)市場(chǎng)的合約對(duì)象

‘該示例從鄭州市場(chǎng)篩選SR合約得最大持倉(cāng)量做為主力合約

 Sub Test()
 
 Dim MaxCode
 Dim MaxVolume
 
 '得到市場(chǎng)所有品種
 Count = MarketData.GetReportCount("ZQ")
 
 For i = 0 To Count-1
  Set Report1 = MarketData.GetReportDataByIndex("ZQ",i)
  '只處理SR合約
  if Left(Report1.Label,2) = "SR" Then
   '只處理有效合約
   if Right(Report1.Label,2) >= "01" And Right(Report1.Label,2) <= "12" Then
    If Report1.Volume > MaxVolume Then
     MaxCode = Report1.Label
     MaxVolume = Report1.Volume
    End if
   end if
  End if
 Next
 
 '顯示成交量最大得合約
 MsgBox MaxCode
 
End Sub