[求助]VBA中调用条件选股 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

GetReportDataByIndex 方法

得到指定市场指定基于0索引的ReportData对象，该对象用于表示该品种最新行情数据。

GetReportDataByIndex(Market,Index)

Market 市场标识

Index 基于0索引的指定品种,品种数量可由GetReportCount属性获得.

返回值返回ReportData对象

示例

‘该示例从郑州市场筛选SR合约得最大持仓量做为主力合约

Sub Test()

Dim MaxCode

Dim MaxVolume

'得到市场所有品种

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

'显示成交量最大得合约

MsgBox MaxCode

End Sub

你遍历一下嘛符合条件的去添加

主题：[求助]VBA中调用条件选股