将一个数据表转换成EXCEL格式，想通过“另存为”功能，把文件存储到想要的路径，并且默认文件名称。如果要将文件保存下来是没有问题的，但如果在“另存为”对话框弹出时，不想继续操作了，点击“取消”按钮，就会提示错误，我应该是在哪里少代码，但不知道该如何做。附件中有三个图片，图一为我的“另存为”代码。图二是“另存为”对话框；图三是点“取消”出现的错误提示。请大家帮助

[此贴子已经被作者于2016-1-19 11:59编辑过]

楼主应该直接将代码发上来，方便大家提出修改的建议。

....
            err=.f.
            ON ERROR err=.t.
            eole.ActiveWorkbook.SaveAs(cExcelFile)                                       && 设置另存为文件
            ON ERROR
.......

            IF err
               =MESSAGEBOX("文件导出失败！",0+64,"提示信息")
            ELSE
               =MESSAGEBOX("文件导出成功！",0+64,"提示信息")
            ENDIF

代码在附件中有

一个是用好ERR　，另一个思路是用 Try... Catch  结构。你会有提高，
当然，如果不想这么麻烦，也可以事先检测一下获得的文件名是否合法？是否为空？是否有读写冲突？当检测都通过时，再执行保存代码。

感谢三楼 kiff老师，按照您的代码成功的解决了我的问题。又学习到新东西，很开心。

嗯，好的！我会试试各种方法。这样才能真正提高，也才能理解代码的意义。