多应用+插件架构,代码干净,二开方便,首家独创一键云编译技术,文档视频完善,免费商用码云13.8K 广告
平台内置了很多函数,用户可以直接调用 其中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的运行效果 (不同系统,效果会有些区别)       ![OpenFileDialog](http://www.office-cn.net/t/devlib/openfiledialog.png)