主题：[求助]请进一步解释这句话的意思

如果不打开report，那就要使用Block对象。

Sub LookAllA()
Set block = CreateObject("Stock.Block")

market = Array("上海A股","深圳A股","深圳创业","中小企业") '
iRow=2
For s = 0 To UBound(market)
    sBlock=market(s)
    'application.MsgOut sBlock
    block.Open sBlock,0
    For i = 0 To block.Count - 1 
        application.PeekAndPump
        sMarket=block.GetStockMarket(i)
        sCode=block.GetStockCode(i)
        set rep=marketdata.GetReportData(sCode,sMarket)
        sName=rep.StockName
    Next 'i
Next 's
End Sub

以上代码遍历所有A股。