GetOpenFilename的使用方法和示例
来源:互联网 发布:怎样装饰淘宝店铺2016 编辑:程序博客网 时间:2024/05/01 08:22
GetOpenFilename相当于Excel打开窗口,通过该窗口选择要打开的文件,并可以返回选择的文件完整路径和文件名。
'注:此方法并不会真正打开文件?
'Application.GetOpenFilename(文件类型筛选规则,优先显示第几个类型的文件,标题,是否允许选择多个文件名)
'二、示例
'1 打开类型只限excel文件
'设置打开某类文件可以用下面的规则:
'"文件类型说明文字,*.文件类型后辍"
Sub t1()
Dim f
f = Application.GetOpenFilename("Excel文件,*.xls")
MsgBox f
End Sub
'2、打开多种文件类型(word和excel)
'打开多种文件类型,只需要用","隔开,添加新的文件类型说明和文件类型。
Sub t2()
Dim f
f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc")
MsgBox f
End Sub
'3 打开多种文件类型,默认显示word文件
Sub t3()
Dim f
f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt", 2)
MsgBox f
End Sub
'4 设置对话框名称
Sub t4()
Dim f
f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt", 2, "选择要汇总的文件")
MsgBox f
End Sub
'5 选择多个文件,并以数组形式返回
Sub t5()
Dim f
ChDrive "E"
ChDir Application.Path
'ChDir ".."
f = Application.GetOpenFilename("Excel2003文件,*.xls,Word文件,*.doc,文本文件,*.txt", 1,MultiSelect:=True)
MsgBox f(1)
End Sub
- GetOpenFilename的使用方法和示例
- UITableView的使用方法和示例
- QSS的使用方法和示例程序
- PHPExcel的使用方法和代码示例
- GetOpenFileName
- 剪贴板的使用方法示例
- monkey参数使用方法和示例
- 【JSP】JSTL核心标签库的使用方法和示例
- JSTL核心标签库的使用方法和示例
- GetOpenFileName异常退出的解决办法
- GetOpenFileName的简单使用实例
- assert 的使用方法及示例
- udev的使用方法(示例)
- 使用GetOpenFileName和GetSaveFileName函数会改变当前目录的问题
- GetOpenFileName/GetSaveFileName之Crash和pdfshell.dll
- MSDN上的GetOpenFileName()函数验证
- MSDN上的GetOpenFileName()函数验证
- QT中getOpenFileName函数的解释
- 制约个人成长的15种能力
- Web攻防系列教程之 Cookie注入攻防实战
- mysql集群 配置Keepalived+mm
- 构建一个datatable,把datatable作为数据源绑定
- libevent使用经验
- GetOpenFilename的使用方法和示例
- 远嫁他乡,多年后你会明白,你失去的是什么
- 浙大ZOJ 1009 Enigma问题解决及别人的解决方案
- android系统sensor代码路径
- Config语言与Config.in文件
- QT QButton to QMenu自定义菜单
- serialVersionUID的作用
- 如何跨越现实和梦想之间的鸿沟
- ERROR 1148 (42000): The used command is not allowed with this MySQL version