application.MsgOut sCode & "," & sMarket1 & "," & sAccount1 & ",账户状态:" & AccountStatus & "(" & strAccountStatus & "),账户余额:" & Order.Account2(3,sAccount1) & ",账户浮动盈亏:" & Order.Account2(4,sAccount1)
Call Order.HoldingInfoByCode2(sCode1,sMarkdt1,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin,sAccount1)
application.MsgOut "当前多仓持仓量:" & BuyHoding & ",空仓持仓量:" & SellHoding
用Order.Account2(3,sAccount1) 和Order.Account2(4,sAccount1)可以查到账户余额及浮动盈亏,但用HoldingInfoByCode2就无法显示持仓,是语句的问题吗?
之前调用Buy语句买入了2手IF09
输出:
IF09,ZJ,603489,账户状态:6(其他柜台账号),账户余额:9638045,账户浮动盈亏:4380.029
当前多仓持仓量:0,空仓持仓量:0
Call Order.HoldingInfoByCode2(sCode1,sMarkdt1
你这个参数,字母错了
哦,是的!
对了,我用DEBUGFILE "D:\A.TXT","测试",0 会提示出错的?在VBA里面是要怎么写?
call document.DebugFile("C:\OrderLog.Txt", "1", 1)
还是HoldingInfoByCode2的调用问题,现在sCode和sMarket已经填写正确,但读取多仓和空仓仍然有错误,无法读取。这是什么原因?
代码:
Call Order.HoldingInfoByCode2((sCode,sMarket,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin,sAccountID)
if BuyHolding=0 AND SellHolding=0 then
application.MsgOut "没有持仓,等待开仓信号.多仓持仓:" & BuyHoding & ",开多成本:" & BuyCost & ",空仓持仓:" & SellHoding & ",空仓成本:" & SellCost & "最新价:" & NewPrice
else
application.MsgOut "持仓等待卖出信号,准备判断持仓盈亏.多仓持仓:" & BuyHoding & ",开多成本:" & BuyCost & ",空仓持仓:" & SellHoding & ",空仓成本:" & SellCost & ",最新价:" & NewPrice
end if
输出:
没有持仓,等待开仓信号.多仓持仓:,开多成本:0,空仓持仓:,空仓成本:0
多仓、空仓持仓为空,所以无法判断,是这个语句写得不对吗?
Call Order.HoldingInfoByCode2(sCode,sMarket,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin,sAccountID)
if BuyHoding=0 AND SellHoding=0 then