最近试着用vba编程,发现金字塔编程帮助文件的示例实在太少了,看了对象 方法都不知道怎么用,向老师求教
呵呵,抱歉!
就比如说,在 自选股 中添加("dq","AX09") 的品种,用vba实现
请认真的多看看本板块的精华贴
哦。我知道了,非常非常感谢
但每次用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