application.MsgOut ReportData.MarketName
这个返回的就是市场代码
'得到上期所指定品种的日线数据
Set History = marketdata.GetHistoryData("rb00","sq",5)
'删掉第一条数据
History.RemoveAt(0)
'修改倒数第二条数据的收盘价,比平时高出100价格
ClosePrice = History.Close(History.Count-2)
History.Close(History.Count-2) = ClosePrice+100
'将修改完毕的数据重新保存回去
call History.SaveData("RB00","SQ",0)