主题：[求助]我想用这种方法自动筛选主力合约

以下是引用wattwei在2010-7-30 22:03:55的发言：
 '枚举合约，将主力合约的代码和对应市场代码分别作为键和值存入字典容器，供后续操作调用
sub test()
    Dim marketName
    Set dominantContract=CreateObject("Scripting.Dictionary")
    marketName=Array("SQ","DQ","ZQ","ZJ")
    prefixStockNameOld=""
    c00" And suffixStockNameCur<"99" Then
                If prefixStockNameCur<>prefixStockNameOld Then
                    If contractLabel<>"" Then
                        dominantContract.Add contractLabel,marketName(j)
                    End If
                    prefixStockNameOld=prefixStockNameCur
                    contractLabel=reportData.Label
                    contractVol=reportData.Volume
                ElseIf reportData.Volume>contractVol then
                    contractLabel=reportData.Label
                    contractVol=reportData.Volume
                End If
            End If
        Next     
    Next
    dominantContract.Add contractLabel,marketName(j-1)
    
    output=""
    labels=dominantContract.Keys
    markets=dominantContract.Items
    For i = 0 To dominantContract.Count-1
        output=output+labels(i)+vbTab+markets(i)+vbCrLf
    Next
    MsgBox output

end sub