金字塔的VBA范例

技术008

一、vba对板块的操作
1、添加新品种到版中

[Visual Basic] 复制代码

Set d = CreateObject("Stock.Block")
'打开自选股板块，然后添加品种，添加完后执行save保存
call d.open("自选股",1)
call d.AddStock("SZ", "000002")
call d.ToSave("自选", "自选股")
application.MsgOut d.Count
set d = nothing
' 如果要实时在动态显示屏显示，要执行刷新
call Report.ReCalcAllGridFromula