Sub testreportdata() set rd = MARKETDATA.GetReportData("SRY01", "ZQ") msgbox Cstr(rd.BuyPrice1) + " " + Cstr(rd.BuyPrice2) + " " + Cstr(rd.BuyPrice3) + " " + Cstr(rd.BuyPrice4) + " " + Cstr(rd.BuyPrice5) msgbox Cstr(rd.SellPrice1) + " " + Cstr(rd.SellPrice2) + " " + Cstr(rd.SellPrice3) + " " + Cstr(rd.SellPrice4) + " " + Cstr(rd.SellPrice5) End Sub 执行结果: buyprice全部为0 sellprice有数据。