平台内置了很多函数，用户可以直接调用 其中gf\_GetOpenFileName函数可以弹出一个“打开文件”的对话框。 [TOC] **语法** gf\_GetOpenFileName(lHwnd, sRoot, strFilter, sTitle) [TOC] **参数** <table style="font-size:10pt;color:#000000;width:704.76px;border:none;"><tbody><tr><th style="font-size:10pt;font-weight:normal;vertical-align:middle;background-color:#00CCFF;"><p style="text-align:center;"><span style="font-weight:bold;color:#FFFFFF;">参数名</span></p> </th> <th style="font-size:10pt;font-weight:normal;vertical-align:middle;background-color:#00CCFF;"><p style="text-align:center;"><span style="font-weight:bold;color:#FFFFFF;">必需/可选</span></p> </th> <th style="font-size:10pt;font-weight:normal;vertical-align:middle;background-color:#00CCFF;"><p style="text-align:center;"><span style="font-weight:bold;color:#FFFFFF;">数据类型</span></p> </th> <th style="font-size:10pt;font-weight:normal;vertical-align:middle;background-color:#00CCFF;"><p style="text-align:center;"><span style="font-weight:bold;color:#FFFFFF;">参数说明</span></p> </th> </tr> <tr><td style="vertical-align:middle;"><p style="text-align:center;">lHwnd</p> </td> <td style="vertical-align:middle;"><p style="text-align:center;">必需</p> </td> <td style="vertical-align:middle;"><p style="text-align:center;">Long</p> </td> <td style="vertical-align:middle;"><p>&nbsp;窗体或者程序句柄，一般使用<span style="font-weight:bold;">Application.hWndAccessApp</span>&nbsp;即可。</p> </td> </tr> <tr><td style="vertical-align:middle;"><p style="text-align:center;">sRoot</p> </td> <td style="vertical-align:middle;"><p style="text-align:center;">必需</p> </td> <td style="vertical-align:middle;"><p style="text-align:center;">String</p> </td> <td style="vertical-align:middle;"><p>&nbsp;打开对话框的初始路径。</p> </td> </tr> <tr><td style="vertical-align:middle;"><p style="text-align:center;">strFilter</p> </td> <td style="vertical-align:middle;"><p style="text-align:center;">必需</p> </td> <td style="vertical-align:middle;"><p style="text-align:center;">String</p> </td> <td style="vertical-align:middle;"><p>&nbsp;文件类型筛选器，格式是"文件描述|筛选格式"，例如："所有文件|*.*"</p> </td> </tr> <tr><td style="vertical-align:middle;"><p style="text-align:center;">sTitle</p> </td> <td style="vertical-align:middle;"><p style="text-align:center;">必需</p> </td> <td style="vertical-align:middle;"><p style="text-align:center;">String</p> </td> <td style="vertical-align:middle;"><p>&nbsp;"打开文件"对话框的标题</p> </td> </tr> </tbody> </table> [TOC] **返回值** 返回一个字符串(String)，即通过对话框选择的文件。若没有选择文件，则返回空字符串。 如果第二个参数为空（不填），即打开上次打开的文件夹;如果是程序的目录，可用Currentproject.Path [TOC] **示例** ~~~ '单个文件类型筛选器 Sub subTest1() Dim strFilter As String '定义字符串变量，设置文件类型筛选器 Dim strReturn As String '定义字符串变量，接收返回结果 strFilter = "文本文件(*.txt)|*.txt" '文件描述和筛选器描述用“|”分隔 strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:", strFilter, "打开文件") '打开一个“打开文件”对话框 '验证结果 If strReturn <> "" Then Msgbox "您要打开的文件路径是 " & strReturn Else Msgbox "您没有选择要打开的文件" End If End Sub '多个文件类型筛选器 Sub subTest2() Dim strFilter As String '定义字符串变量，设置文件类型筛选器 Dim strReturn As String '定义字符串变量，接收返回结果 strFilter = "文本文件(*.txt)|*.txt|配置文件(*.ini)|*.ini" '文件描述和筛选器描述仍然用“|”分隔，构成一组筛选器，多个筛选器也用“|”分割 strReturn = gf_GetOpenFileName(Application.hWndAccessApp, "C:", strFilter, "打开文件") '打开一个“打开文件”对话框 '验证结果 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, "打开文件") '打开一个“打开文件”对话框 '验证结果 If strReturn <> "" Then Msgbox "您要打开的文件路径是 " & strReturn Else Msgbox "您没有选择要打开的文件" End If End Sub ~~~ [TOC] **运行效果**       示例1的运行效果 (不同系统，效果会有些区别)