| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp) -- 金字塔软件问题提交 (http://www.weistock.com/bbs/list.asp?boardid=2) ---- vba macro编辑器导致崩溃 (http://www.weistock.com/bbs/dispbbs.asp?boardid=2&id=3791) |
| -- 作者：BNF -- 发布时间：2010/11/9 10:07:48 -- vba macro编辑器导致崩溃 我打开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 & "," &
然后就弹出内存什么的问题，金字塔崩溃。 |
| -- 作者：BNF -- 发布时间：2010/11/9 10:31:17 -- 2.02 |
| -- 作者：fly -- 发布时间：2010/11/9 13:53:35 -- 楼主浏览器发到论坛的是乱码, 可否换个浏览器发,好跟踪楼主说的. |
| -- 作者：BNF -- 发布时间：2010/11/9 15:46:20 -- 我这里看没错，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编辑过]
|
| -- 作者：BNF -- 发布时间：2010/11/9 15:48:07 -- 虽然有点儿乱，但是不是乱码，是reportdata全数据，最后的&--and链接符后面还有个timer，因为本来原来代码就有，不是插入的，所以没写出来。 [此贴子已经被作者于2010-11-9 15:48:43编辑过]
|
| -- 作者：admin -- 发布时间：2010/11/9 16:06:12 -- 估计你这是行代码量超过了VBA的处理范围，建议楼主将这么长的程序拆开了运行 |
| -- 作者：BNF -- 发布时间：2010/11/9 18:09:30 -- 收到！谢谢老师！ |