欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 金字塔软件问题提交 → vba macro编辑器导致崩溃

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有6217人关注过本帖树形打印复制链接

主题：vba macro编辑器导致崩溃
帅哥哟，离线，有人找我吗？
BNF
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：269 积分：1502 威望：0 精华：0 注册：2010/11/1 21:37:43 		vba macro编辑器导致崩溃  发帖心情 Post By：2010/11/9 10:07:48 [显示全部帖子]

我打开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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：269 积分：1502 威望：0 精华：0 注册：2010/11/1 21:37:43 		  发帖心情 Post By：2010/11/9 10:31:17 [显示全部帖子]

2.02

 回到顶部
帅哥哟，离线，有人找我吗？
BNF
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：269 积分：1502 威望：0 精华：0 注册：2010/11/1 21:37:43 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：269 积分：1502 威望：0 精华：0 注册：2010/11/1 21:37:43 		  发帖心情 Post By：2010/11/9 15:48:07 [显示全部帖子]

虽然有点儿乱，但是不是乱码，是reportdata全数据，最后的&--and链接符后面还有个timer，因为本来原来代码就有，不是插入的，所以没写出来。
[此贴子已经被作者于2010-11-9 15:48:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
BNF
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：269 积分：1502 威望：0 精华：0 注册：2010/11/1 21:37:43 		  发帖心情 Post By：2010/11/9 18:09:30 [显示全部帖子]

收到！谢谢老师！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 02.98438 秒, 6 次数据查询