现在没问题,看看后面在pel里判断的函数取ini的值会不会来的及取值,
Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping,Account, AccountType)
Set ReportData = MarketData.GetReportData(Code,Market)
PZMC=ReportData.StockName
此主题相关图片如下:刚启动时,未登入账户出现.png

帮忙哪里改一下,判断
应该是账户没登入,vba已经执行了加上
if status="Connected" then
Set ReportData = MarketData.GetReportData(Code,Market)
PZMC=ReportData.StockName
end if
还是会有
此主题相关图片如下:刚启动时,未登入账户出现2.png

mystatus="FILLED" OR "SUBMITTED" OR "TRADEING"
if UCase(Status)=mystatus then
Set ReportData = MarketData.GetReportData(Code,Market)
PZMC=ReportData.StockName
end if