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

 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
 

触发了吗

这个只是一个过程，你要去调用它，它才能给你干活的。

 

如：

sub application_vbastart()

    getcontinuouscontracts

end sub

 

就可以在vba一起动就执行你的这个过程。