请求帮忙写个排序吧,自己实在写不了。已取得了数据。
Sub MarketData_ReportNotify(ReportData)
Set RC1 = MarketData.GetReportData("AG02","SQ")
Set RC2 = MarketData.GetReportData("NI02","SQ")
Set RC3 = MarketData.GetReportData("ZN02","SQ")
Application.MsgOut Cdate(time) & " AG02 " & RC1.PriceSpeed
Application.MsgOut Cdate(time) & " NI02 " & RC2.PriceSpeed
Application.MsgOut Cdate(time) & " ZN02 " & RC3.PriceSpeed
End Sub
万分感谢!