如何用VBA添加自选股

'创建Block外部对象，将对象实例置变量b中
Set b = CreateObject("Stock.Block")

'打开市场指定分类名称的板块
call b.open("自选股",1)

call b.AddStock("SH","600000")
call b.ToSave("自选","自选股")

'不要忘记释放对象，不然会导致内存泄漏
SET b = nothing