2,749
社区成员
发帖
与我相关
我的任务
分享循环出现问题
我有2段代码，一段时循环，单独执行没有问题，
一段时调用的单独执行也没有问题，可是放在一起就不循环了，
请教这个是什么原因，将执行中止的地方贴下，请高手解答，不胜感激。
ef.ActiveWorkbook.SaveAs("&m") 这句执行，执行完了，后续就不动了
ef.Workbooks.Close
ef.Quit
Release ef
ELSE
MESSAGEBOX('没有',64,mDH)
Endif
ENDSCAN
一段时调用的单独执行也没有问题，可是放在一起就不循环了，
请教这个是什么原因，将执行中止的地方贴下，请高手解答，不胜感激。
ef.ActiveWorkbook.SaveAs("&m") 这句执行，执行完了，后续就不动了
ef.Workbooks.Close
ef.Quit
Release ef
ELSE
MESSAGEBOX('没有',64,mDH)
Endif
ENDSCAN
...全文
请发表友善的回复…
发表回复
MARYS2007 2012-07-17
- 打赏
- 举报
找到问题了，是工作区的设置我设置错了。另外在此咨询一下，就是我用的是ef.ActiveWorkbook.SaveAs，每次在退出循环时都要出现对话框：
‘是否保存对文件名的更改'
需要我自己点击“是”才可以。如果我循环多了，那么我需要点击很多次，有没有让它不显示对话框而直接为：是的那个命令，
我在程序前用了set safety off了的
‘是否保存对文件名的更改'
需要我自己点击“是”才可以。如果我循环多了，那么我需要点击很多次，有没有让它不显示对话框而直接为：是的那个命令，
我在程序前用了set safety off了的
十豆三 2012-07-17
- 打赏
- 举报
不动了，是没有响应了，还是报错了，还是后面不执行，也没有报错？
wwwwb 2012-07-17
- 打赏
- 举报
后续就不动了：解释一下
十豆三 2012-07-17
- 打赏
- 举报
ef.Workbooks.Close
之前加存盘或不存盘代码：
*!*放弃存盘
ef.ActiveWorkbook.saved=.T.
*!*存盘
ef.ActiveWorkbook.Save
详细请参考：
<VFP全面控制EXCEL>
http://blog.csdn.net/apple_8180/article/details/672913
之前加存盘或不存盘代码：
*!*放弃存盘
ef.ActiveWorkbook.saved=.T.
*!*存盘
ef.ActiveWorkbook.Save
详细请参考：
<VFP全面控制EXCEL>
http://blog.csdn.net/apple_8180/article/details/672913
都市夜猫 2012-07-17
- 打赏
- 举报
ef.DisplayAlerts = .f.
lygcw9602 2012-07-16
- 打赏
- 举报
上传完整代码
