主题：关于vba程序发生不定时非法，找到点问题，麻烦看一下，谢谢

测试时帐号是对上的，你的VBA就只有这点代码吗？是否存在其他代码导致的内存占用问题

这个问题主要是大量循环后，分配的BSTR对象未释放导致的，这样改进

   Call Order.HoldingInfo2(1,iBuyHolding,dblBuyCost,iBuyTodayHolding,iSellHolding,dblSellCost,iSellTodayHolding,dblPNL,dblUseMargin,sBgCont,sMarket,sAcctNo)    '其余几个注释掉的，可能也会有类似问题，但是内存增长很不明显，可以当是没问题
'   Call Order.Contract("RB10","SQ",dblMultipliter,dblMinTick,iShortPercent,iLongPercent)
'   Call Order.HoldingInfoByCode2("RB10","SQ",iBuyHolding,dblBuyCost,iBuyTodayHolding,iSellHolding,dblSellCost,iSellTodayHolding,dblPNL,dblUseMargin,sAcctNo)
'   aaa = order.Account2(2,sAcctNo)
'   aaa = Order.Account2(6,sAcctNo)
'   aaa = Order.Account2(3,sAcctNo)
'    aaa = Order.Account2(28,sAcctNo)
'   aaa = Order.Account2(31,sAcctNo)

' 使用完毕后，这2个字符串返回变量需要销毁

   set sBgCont = nothing
   set sMarket = nothing