Access平台开发人员帮助 > 通用函数库 > 按功能 > 通用对话框

函数说明

该函数可以弹出一个“保存文件”的对话框。

函数原型

Public Function gf_SaveFileName(lHwnd As Long, sRoot As String, sFilter As String, sDefualtType As String, sTitle As String) As String

语法

gf_SaveFileName(lHwnd, sRoot, strFilter, sDefualtType, sTitle)

参考：gf_SaveFileName(Application.hWndAccessApp, "C:\", “文本文件(*txt)|*.txt”, "txt", "保存文件") '打开一个“保存文件”对话框

参数

参数名	必需/可选	数据类型	参数说明
lHwnd	必需	Long	窗体或者程序句柄，一般使用Application.hWndAccessApp 即可。
sRoot	必需	String	打开对话框的初始路径。
strFilter	必需	String	文件类型筛选器，格式是"文件描述\|筛选格式"，例如："所有文件\|."
sDefualtType	必需	String	当文件保存的时候，没有写文件类型时，自动添加的默认拓展名。
sTitle	必需	String	"保存文件"对话框的标题

返回值

返回一个字符串(String)，即文件要保存的路径。若没有选择保存，则返回空字符串。

示例

'单个文件类型筛选器

Sub subTest1()

Dim strFilter As String '定义字符串变量，设置文件类型筛选器

Dim strReturn As String '定义字符串变量，接收返回结果

strFilter = "文本文件(*.txt)|*.txt" '文件描述和筛选器描述用“|”分隔

strReturn = gf_SaveFileName(Application.hWndAccessApp, "C:\", strFilter, "txt", "保存文件") '打开一个“保存文件”对话框

'验证结果

If strReturn <> "" Then

Msgbox "您要保存文件的路径是 " & strReturn

Else

Msgbox "您取消了保存"

End If

End Sub

'多个文件类型筛选器

Sub subTest2()

Dim strFilter As String '定义字符串变量，设置文件类型筛选器

Dim strReturn As String '定义字符串变量，接收返回结果

strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:\", strFilter, "txt", "保存文件") '打开一个“保存文件”对话框

'验证结果

If strReturn <> "" Then

Msgbox "您要保存文件的路径是 " & strReturn

Else

Msgbox "您取消了保存"

End If

End Sub

'同时筛选多种文件类型筛选器

Sub subTest3()

Dim strFilter As String '定义字符串变量，设置文件类型筛选器

Dim strReturn As String '定义字符串变量，接收返回结果

strFilter = "图片文件|*.jpg;*.bmp;*.png" '文件描述和筛选器描述仍然用“|”分隔，构成一组筛选器。而多个筛选器描述需要用";"分隔

strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:\", strFilter, "jpg", "保存文件") '打开一个“保存文件”对话框

'验证结果

If strReturn <> "" Then

Msgbox "您要保存文件的路径是 " & strReturn

Else

Msgbox "您取消了保存"

End If

End Sub

运行效果

示例1的运行效果 (不同系统，效果会有些区别)

SaveFileDialog

"保存文件"对话框（gf_SaveFileName函数）

"保存文件"对话框（gf_SaveFileName函数）