用CALL直接可以用ORDER里的方法
我用call order.Buy(0,1,Ssx_Price_Buy,0,"IF11","ZJ","",0)
可提示编译错误‘424’ 缺少对象：order
Sub ssx_UserForm1_CommandButton4_Click()
msgbox "maiduo"
HY_DM="IF12"
SC_DM="ZJ"
Set Ssx_ReportData =marketdata.GetReportData(HY_DM,SC_DM)
Ssx_Price_New = Ssx_ReportData.NewPrice
Ssx_Price_Buy = Ssx_Price_New + 2
call Order.Buy(0,1,Ssx_Price_Buy,0,"IF11","ZJ","",0)
End Sub
Order是专业版才具有的，免费版无法使用