保存对话框ShowSave

“ 本节课程学习ShowSave保存对话框”

上节课程一起学习了ShowOpen打开对话框，本节课程将要学习的保存对话框与打开对话框非常的相似。

首先，与打开对话框一样，将对话框控件添加到窗体上。

然后，设置对话框属性。比如：

'设置文件类型过滤器（txt、word、xlsx） 
CommonDialog1.Filter = "全部文件|*.*|文本文件|*.txt|word文件|*.doc|Excel文件|*.xlsx"
'设置默认显示过滤器中的第一组文件类型
CommonDialog1.FilterIndex = 1
'设置取消报错
CommonDialog1.CancelError = True
'设置一个默认文件名
CommonDialog1.FileName = "123"
'修改对话框标题
CommonDialog1.DialogTitle = "保存"

注意：以上属性设置并不是必须要设置的，即使不进行属性设置，也是可以直接使用ShowSave方法的。

接着，使用ShowSave方法弹出保存对话框。

CommonDialog1.ShowSave
1

最后，获取用户保存文件的路径和名称。

CommonDialog1.FileName
1

如果设置了文件类型，那么FileName将会自动返回一个该类型的文件名。

完整的举例，如下:

Private Sub Command1_Click() 
    On Error GoTo err
    '设置文件类型过滤器（txt、word、xlsx）
    CommonDialog1.Filter = "全部文件|*.*|文本文件|*.txt|word文件|*.doc|Excel文件|*.xlsx"
    '设置默认显示过滤器中的第一组文件类型
    CommonDialog1.FilterIndex = 1
    '设置取消报错
    CommonDialog1.CancelError = True
    '设置一个默认文件名
    CommonDialog1.FileName = "123"
    '修改对话框标题
    CommonDialog1.DialogTitle = "保存"
    CommonDialog1.ShowSave
    Print "文件保存路径为：" & CommonDialog1.FileName
    Exit Sub
    err:
    MsgBox "用户取消了"
End Sub
11
12
13
14
15
16
17
18

保存对话框

FileName获取路径