主题：如何用vba实现在指定的板块（动态表）中添加指定市场，指定商品的动态信息

最近试着用vba编程，发现金字塔编程帮助文件的示例实在太少了，看了对象 方法都不知道怎么用，向老师求教

呵呵，抱歉！

就比如说，在 自选股 中添加（"dq"，"AX09") 的品种，用vba实现

请认真的多看看本板块的精华贴

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=2670

哦。我知道了，非常非常感谢

但每次用block.tosave 保存到指定板块后，原来的就会被覆盖掉，

是否有插入一条记录的方法呢？

sub save()
 dim BuyHoding
 dim BuyCost
 dim BuyTodayHoding
 dim SellHoding
 dim SellCost
 dim SellTodayHoding
 dim PNL
 dim UseMargin
 dim Code
 dim Market
 
 set block = createobject("stock.block")
 
 '取第一个当前默认帐户持仓品种
 for i=0 to order.Holding2("88888")-1
  Order.HoldingInfo2(0,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin ,Code,Market)
  block.addstock market,code
 next

 block.tosave "自选", "期货主力合约"
end sub