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

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