【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群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)