循环出现问题

[MARYS2007]

我有2段代码，一段时循环，单独执行没有问题，
一段时调用的单独执行也没有问题，可是放在一起就不循环了，
请教这个是什么原因，将执行中止的地方贴下，请高手解答，不胜感激。


ef.ActiveWorkbook.SaveAs("&m") 这句执行，执行完了，后续就不动了
ef.Workbooks.Close


ef.Quit
Release ef

ELSE
MESSAGEBOX('没有',64,mDH)
Endif
ENDSCAN

[lygcw9602]

上传完整代码

[都市夜猫]

ef.DisplayAlerts = .f.

[十豆三]

ef.Workbooks.Close
之前加存盘或不存盘代码：

*!*放弃存盘
ef.ActiveWorkbook.saved=.T.

*!*存盘
ef.ActiveWorkbook.Save

详细请参考：
<VFP全面控制EXCEL>
http://blog.csdn.net/apple_8180/article/details/672913

[wwwwb]

后续就不动了：解释一下

[十豆三]

不动了，是没有响应了，还是报错了，还是后面不执行，也没有报错？

[MARYS2007]

找到问题了，是工作区的设置我设置错了。另外在此咨询一下，就是我用的是ef.ActiveWorkbook.SaveAs，每次在退出循环时都要出现对话框：

‘是否保存对文件名的更改'

需要我自己点击“是”才可以。如果我循环多了，那么我需要点击很多次，有没有让它不显示对话框而直接为：是的那个命令，

我在程序前用了set safety off了的