以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  如何用vba实现在指定的板块（动态表）中添加指定市场，指定商品的动态信息  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=6535)
--  作者：francus
--  发布时间：2011/5/16 22:40:39
--  如何用vba实现在指定的板块（动态表）中添加指定市场，指定商品的动态信息

最近试着用vba编程，发现金字塔编程帮助文件的示例实在太少了，看了对象 方法都不知道怎么用，向老师求教
--  作者：阿火
--  发布时间：2011/5/16 23:01:33
--  
把每个对象及其属性、方法、事件都用一下，不就会了
--  作者：王锋
--  发布时间：2011/5/16 23:03:38
--  
你自己同样给我们的信息少的可怜,怎么帮你?
--  作者：francus
--  发布时间：2011/5/17 7:52:51
--  

呵呵，抱歉！

就比如说，在 自选股 中添加（"dq"，"AX09") 的品种，用vba实现
--  作者：admin
--  发布时间：2011/5/17 18:49:06
--  

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

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=2670
--  作者：francus
--  发布时间：2011/5/18 9:49:13
--  

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

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

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

[此贴子已经被作者于2011-5-18 9:51:10编辑过]
--  作者：solarhe2006
--  发布时间：2013/6/28 16:08:03
--  

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