【烟花原创】VBA零基础之第164篇各种对话框之文件件另存为对话框

1. Application.FileDialog(msoFileDialogSaveAs)

语法：Application.FileDialog(msoFileDialogSaveAs)

通过调用属性返回的文件对话框的Show方法显示对话框，接着再调用Execute方法完成按指定文件名另存。

注意：
1.每个宿主应用程序只能创建一个 FileDialog 对象实例。因此，即使创建多个 FileDialog 对象，FileDialog 对象的很多属性也会保持不变。所以，在显示对话框之前请确保已经针对用途适当地设置了所有属性。

2.在使用另存为对话框时，AllowMultiselect不需要设置（即使设置为True也无效）。

示例1：

含有VBA工程的工作簿在07以上版本另存为XLSX格式时，会有下图提示：

当点击否 时，则会产生下图错误：

平时在技巧中，按F12时，点否不会产生任何提示，还是停留在对话框窗口。

2. 调用Excel内置的对话框

Excel内置的对话框可以通过应用程序的Dialog属性对象获取。

获取对话框对象后只需要调用Show方法即可

语法：Application.Dialogs(xlDialogSaveAs).Show

至于对话框的定制只能通过Show方法的参数传递。

关于内置的对话框的参数，大家在VBA开发人员参考中搜索内置对话框参数列表。

示例：

同样的另存，这里出现关于VBA工程的保存格式时，点击否不会有错误提示，与在日常的操作是一样的，继续停留在另存为对话框中。