Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

【Access示例】使用对话框选择文件

时 间:2017-06-18 08:28:08
作 者:杨雪   ID:42182  城市:南京
摘 要:文件的操作:FileDialog属性、Show方法、Item属性
正 文:

  

如果要使用对话框选择文件,可以使用FileDialog属性,其具体语法:

Application.FileDialog([对话框类型])

Access不支持msoFileDialogOpen(打开对话框)msoFileDialogSaveAs(另存为对话框)类型的对话框。仅支持mscFileDialogFolderPicker(文件夹选择器)msoFileDialogFilePicker(文件选择器)类型的对话框。

获取对话框之后,还可以设置对话框的属性,比如对话框名称、是否允许多选等。

并且需要使用Show方法将对话框显示出来,才可以进行后续的选择文件操作,其具体语法:

[文件对话框].show

在使用文件对话框选择文件之后,如果需要获取所选文件的路径等,可以使用文件对话框的SelectedItem集合的Item属性,其具体语法:

[文件对话框].SelectedItem.Item([索引号])

索引号表示返回的所有选中文件中的第几个文件,如果在程序中设置了文本对话框的不允许多选,则索引号只能够取1.否则,索引号可以取1到选择的文件数之间的任意整数。

本例中的FileDialog属性,需要在引用了“Microsoft Office 14.0 Object Library”支持库之后,才能够使用。

VBA代码:

 

	
	

'通过文件对话框获取文件路径 Sub 文件路径() On Error Resume Next Dim F_Dlg As Office.FileDialog Dim Fl As Variant '获取文件对话框 Set F_Dlg = Application.FileDialog(msoFileDialogFilePicker) '设置文件对话框属性 With F_Dlg '不允许多选 .AllowMultiSelect = False '清空文件筛选器 .Filters.Clear '在文件筛选器中筛选出文本文件 .Filters.Add "文本文件", "*.txt" '在文件筛选器中筛选出所有文件 .Filters.Add "所有文件", "*.*" End With '显示文件对话框 F_Dlg.Show '获取第一个选项(即选中文件的路径) Fl = F_Dlg.SelectedItems.Item(1) '输出选择文件路径 MsgBox "所选文件路径为:" & Chr(10) & Fl, , "文件路径" End Sub

 

执行过程:按F5键运行“文件路径”过程.


      




Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助