【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源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)