我这里看没错,ie8。再贴次看看。谢谢!
我打开macro,停了vba,插入
以下内容为程序代码:
ReportData.Date & "," & ReportData.LastClose & "," & ReportData.LastOpen & "," & ReportData.LastHigh & "," & ReportData.LastLow & "," & ReportData.Open & "," & ReportData.High & "," & ReportData.Low & "," & ReportData.NewPrice & "," & ReportData.Volume & "," & ReportData.Amount & "," & ReportData.Qt & "," & ReportData.VQt & "," & ReportData.BuyPrice1 & "," & ReportData.BuyPrice2 & "," & ReportData.BuyPrice3 & "," & ReportData.BuyPrice4 & "," & ReportData.BuyPrice5 & "," & ReportData.BuyVolume1 & "," & ReportData.BuyVolume2 & "," & ReportData.BuyVolume3 & "," & ReportData.BuyVolume4 & "," & ReportData.BuyVolume5 & "," & ReportData.SellPrice1 & "," & ReportData.SellPrice2 & "," & ReportData.SellPrice3 & "," & ReportData.SellPrice4 & "," & ReportData.SellPrice5 & "," & ReportData.SellVolume1 & "," & ReportData.SellVolume2 & "," & ReportData.SellVolume3 & "," & ReportData.SellVolume4 & "," & ReportData.SellVolume5 & "," & ReportData.VolumeNow & "," & ReportData.AmountNow & "," & ReportData.BuyVol & "," & ReportData.SellVol & "," & ReportData.FiveDayAverage & "," & ReportData.StockName & "," & ReportData.Label & "," & ReportData.MarketName & "," & ReportData.LastJieSuan & "," & ReportData.LastOI & "," & ReportData.UpperLimitPrice & "," & ReportData.LowerLimitPrice & "," & ReportData.BuyAmount & "," & ReportData.SellAmount & "," & ReportData.Poweru & "," & ReportData.Powerd & "," & ReportData.BuyQt & "," & ReportData.SellQt & "," & ReportData.BorNum & "," & ReportData.SorNum & "," & ReportData.OrnumType & "," & ReportData.TickUp0 & "," & ReportData.TickDown0 & "," & ReportData.TickEqual0 & "," & ReportData.TickUa0 & "," & ReportData.TickDa0 & "," & ReportData.TickEa0 & "," & ReportData.Tick1 & "," & ReportData.TickUp1 & "," & ReportData.TickDown1 & "," & ReportData.TickEqual1 & "," & ReportData.Ticka1 & "," & ReportData.TickUa1 & "," & ReportData.TickDa1 & "," & ReportData.TickEa1 & "," & ReportData.Tick2 & "," & ReportData.TickUp2 & "," & ReportData.TickDown2 & "," & ReportData.TickEqual2 & "," & ReportData.Ticka2 & "," & ReportData.TickUa2 & "," & ReportData.TickDa2 & "," & ReportData.TickEa2 & "," & ReportData.Tick3 & "," & ReportData.TickUp3 & "," & ReportData.TickDown3 & "," & ReportData.TickEqual3 & "," & ReportData.Ticka3 & "," & ReportData.TickUa3 & "," & ReportData.TickDa3 & "," & ReportData.TickEa3 & "," & ReportData.Tick4 & "," & ReportData.TickUp4 & "," & ReportData.TickDown4 & "," & ReportData.TickEqual4 & "," & ReportData.Ticka4 & "," & ReportData.TickUa4 & "," & ReportData.TickDa4 & "," & ReportData.TickEa4 & "," & ReportData.Tick5 & "," & ReportData.TickUp5 & "," & ReportData.TickDown5 & "," & ReportData.TickEqual5 & "," & ReportData.Ticka5 & "," & ReportData.TickUa5 & "," & ReportData.TickDa5 & "," & ReportData.TickEa5 & "," & ReportData.Tick6 & "," & ReportData.TickUp6 & "," & ReportData.TickDown6 & "," & ReportData.TickEqual6 & "," & ReportData.Ticka6 & "," & ReportData.TickUa6 & "," & ReportData.TickDa6 & "," & ReportData.TickEa6 & "," & ReportData.IsVirtualData & "," & ReportData.IsBuy & "," &
[此贴子已经被作者于2010-11-9 15:47:02编辑过]