主题：这段代码简单，怎么没法执行？

 Sub getcontinuouscontracts()
 Dim block
 Dim market

 Set block = CreateObject("stock.block")

 block.Open "自选股", 1

 For i = 0 To block.Count - 1
 block.removeat (0)
 Next

 market = Array("SQ", "DQ", "ZQ", "ZJ")

 For i = 0 To UBound(market)
 n = marketdata.GetReportCount(market(i))
 For j = 0 To n - 1
 Set report1 = marketdata.GetReportDataByIndex(market(i), j)
 If Right(report1.Label, 2) = "00" Then
 block.addstock market(i), report1.Label
 End If
 Next
 Next

 block.tosave "自选", "自选股"
 MsgBox "成功筛选连续合约"
 End Sub