以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  VBA清除table里所有合约，请赐教。  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=12905)
--  作者：明心
--  发布时间：2012/7/12 18:32:43
--  VBA清除table里所有合约，请赐教。
VBA清除table里所有合约，请赐教。主要用于筛选符合条件的合约放到指定板块，但是每次个数不一样，如果这次比上次少，这次的前面的几个被覆盖替换掉了，但后面几个由于没有覆盖，还是原来合约。所以想每次重新筛选之前想把该板块（table）里之前筛选的合约全部清除，然后在按照条件选择新的合约到该板块。
--  作者：王锋
--  发布时间：2012/7/12 22:34:41
--  
清空板块里的所有品种，然后在TABLE显示板块不就解决了？
--  作者：guotx2010
--  发布时间：2012/7/13 9:00:57
--  

 Dim block 
 
 Set block = CreateObject("stock.block")
  
 block.Open "自设股", 1
 
 For i = 0 To block.Count - 1
  block.removeat (0)
 Next

 block.tosave "自选", "自选股"

[此贴子已经被作者于2012-7-13 17:42:07编辑过]