(转) VBA文件对话框的应用(VBA打开文件、VBA选择文件、VBA选择文件夹)
在VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。
用Microsoft Office提供的文件对话框比较方便。
用法如下
Application.FileDialog(fileDialogType)
fileDialogType MsoFileDialogType 类型,必需。文件对话框的类型。
MsoFileDialogType 可为以下 MsoFileDialogType 常量之一。 |
msoFileDialogFilePicker 允许用户选择文件。 |
msoFileDialogFolderPicker 允许用户选择一个文件夹。 |
msoFileDialogOpen 允许用户打开文件。用Excel打开。 |
msoFileDialogSaveAs 允许用户保存一个文件。 |
分别举例如下:
1、msoFileDialogFilePicker
1)选择单个文件
Sub SelectFile()'选择单一文件 'www.okexcel.com.cn With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False'单选择 .Filters.Clear'清除文件过滤器 .Filters.Add "Excel Files", "*.xls;*.xlw" .Filters.Add "All Files", "*.*"'设置两个文件过滤器 If .Show = -1 Then'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。 MsgBox "您选择的文件是:" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"End IfEnd WithEnd Sub
2)选择多个文件
Sub SelectFile()'选择多个文件 'www.okexcel.com.cn Dim l As LongWith Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True'单选择 .Filters.Clear'清除文件过滤器 .Filters.Add "Excel Files", "*.xls;*.xlw" .Filters.Add "All Files", "*.*"'设置两个文件过滤器 .Show'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。 For l = 1 To .SelectedItems.CountMsgBox "您选择的文件是:" & .SelectedItems(l), vbOKOnly + vbInformation, "智能Excel"NextEnd WithEnd Sub
2、msoFileDialogFolderPicker
Sub SelectFolder()'选择单一文件 'www.okexcel.com.cn With Application.FileDialog(msoFileDialogFolderPicker)If .Show = -1 Then'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。 MsgBox "您选择的文件夹是:" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"End IfEnd WithEnd Sub
文件夹仅能选择一个
3、msoFileDialogOpen
4、msoFileDialogSaveAs
使用方法与前两种相同
只是在.show
可以用.Execute方法来实际打开或者保存文件。
转载于:https://www.cnblogs.com/p4759521/articles/2203828.html
(转) VBA文件对话框的应用(VBA打开文件、VBA选择文件、VBA选择文件夹)相关推荐
- c++语言打开文件对话框,C++采用openfilename打开文件对话框用法实例
本文实例讲述了C++采用openfilename打开文件对话框用法,分享给大家供大家参考.具体方法如下: 这里需要注意,有的时候会因为没设置nMaxFile,而一直不出现对话框. 具体功能代码如下: ...
- android自动弹出浏览器打开文件,android使用主流浏览器打开网页,无需弹出选择。...
首先说一下开发需求,需要使用主流的浏览器打开网页,比如QQ浏览器,UC浏览器,opera浏览器,如果此手机里面有安装上述浏览器,则使用上述的浏览器打开网页,无需弹出浏览器选择项,如果这几种都有安装则按 ...
- php文件上传后没有打开权限_记墨者靶机文件上传(二)
" 声明:该公众号大部分文章来自日常学习笔记,若是转载会先得到原作者授权或其他公众号白名单,并附上链接. 剑者,心之刃也.既可为杀,亦可为护.杀与护,不过一念之间!请勿利用文章内的相关技术从 ...
- docx文件是什么?如何打开后缀名.docx格式的word2007文件?
< DOCTYPE html PUBLIC -WCDTD XHTML TransitionalEN httpwwwworgTRxhtmlDTDxhtml-transitionaldtd> ...
- vc 添加打开文件对话框并读取文件
1.创建打开文件对话框: CFileDialog dlg(TRUE,//TRUE是创建打开文件对话框,FALSE则创建的是保存文件对 ...
- c#—OpenFileDialog(打开文件对话框)
OpenFileDialog是什么? OpenFileDialog是一个类,实例化此类可以设置弹出一个文件对话框.比如:我们发邮件时需要上传附件的时候,就会弹出一个让我们选择文件的对话框,我们可以根据 ...
- 选择文件对话框、保存文件对话框、选择文件夹对话框
选择文件对话框 // 设置图像文件过滤格式CString lv_strFilterAll = _T("所有文件(*.*)|*.*||");CString lv_strFilterJ ...
- java swing对话框_Java开发笔记(一百三十五)Swing的文件对话框
除了常规的提示对话框,还有一种对话框也很常见,它叫做文件对话框.文件对话框又分为两小类:打开文件的对话框.保存文件的对话框,但在Swing中它们都用类型JFileChooser来表达.下面是JFile ...
- cfiledialog对话框大小_利用MFC的CFileDialog生成Windows2000文件对话框 (转)
利用MFC的CFileDialog生成Windows2000文件对话框 (转)[@more@] 利用MFC的CFileDialog生成windows2000文件对话框 周鸣扬 自Windows2000 ...
- 在服务器上如何打开aspx文件,aspx是什么文件_aspx用什么软件打开
有用户从网上下载文件的时候,发现有一些是aspx格式文件,但是却不知道这个aspx是什么文件,又要怎么打开呢,针对这个情况,小编给大家带来aspx是什么文件以及aspx用什么软件打开吧. aspx是什 ...
最新文章
- Android应用底部导航栏(选项卡)实例
- 【CyberSecurityLearning 11】OSI与TCP/IP协议簇以及Packet Tracer模拟器
- Nginx负载均衡策略之url_hash
- java基础---关于比较器Comparator和Comparable
- PROTEUS元件库元件称呼 .
- Permission denied (maybe missing INTERNET permission) 错误解决
- 黑苹果配置挑选,教你组装一台苹果机
- C++线程安全单例类最全总结
- 雷神云手机亚马逊养号替代软件- VMLogin中文版多账号防关联超级浏览器
- linux常用命令小结
- 洛谷P1425 小鱼的游泳时间(简单点!别想太多!!!)
- 机器学习基础:概率和熵
- cuil:吹牛营销大师
- 计算机课上玩的打字游戏,上电脑课时偷偷玩的3个游戏,这些都没玩过,别说自己玩过游戏!...
- Infortrend CS分布式NAS集群强项之---成本篇
- shotcut to si9000 lincene 注册码下载
- 日本交通卡-SUICA卡
- 找不到动态库解决方案
- 应聘时最漂亮的回答、回答问题技巧
- 帝国理工学院计算机硕士几年,2020年帝国理工学院硕士读几年