VBA 这个Application.GetOpenFilename 的用法 举个例子 谢谢让我知道怎么操作
GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名
此方法并不会真正打开文件， 不能显示文件夹路径FILEDIALOG可以打开此方法不能打开文件，只能返回路径
不能显示文件夹路径
Application.GetOpenFilename(文件类型筛选规则(就是说明)优先显示第几个类型的文件标题是否允许选择多个文件名)
打开类型只限excel文件
设置打开某类文件可以用下面的规则
文件类型说明文字，文件类型后辍Sub t1()Dim f
打开WPS文字，进入excel界面
点击上方工具栏中的开发工具，VB编辑器
进入Microsoft Visual Basic页面，点击工具栏中的插入，用户窗体
出现编辑窗体，在窗体上可通过左侧“工具箱”中的“控件”可在编辑处绘制命令按钮，文字框，标签等编程控件
鼠标单击左侧“工具箱控件”中的“命令按钮”
点击“命令按钮”后将鼠标放置编辑窗体内任意处单击一下，即出现带有“CommandButtonl”的小方框
用鼠标双击“CommandButtonl”出现代码编写窗口，即可开始编写程序
朋友，我发给你的附件中不就是例子吗！其实也就几个参数而以；
你可以偿试改下里面的参数，会存现不动的效果；我把几个参的详细给你说下吧：全部是我以前自己学习的时候总结的。
一、概述基本语法
'GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名。
'注:
1、此方法并不会真正打开文件? 不能显示文件夹路径（FILEDIALOG可以打开）
2、此方法不能打开文件，只能返回路径
3、不能显示文件夹路径
'Application.GetOpenFilename("文件类型筛选规则(就是说明)","优先显示第几个类型的文件","标题","是否允许选择多个文件名")
'二、示例
'1 打开类型只限excel文件
'设置打开某类文件可以用下面的规则：
'"文件类型说明文字,*.文件类型后辍"
Sub t1()
Dim f
f = Application.GetOpenFilename("Excel文件,*.xls")
MsgBox f
End Sub
'2、打开多种文件类型(word和excel)
'打开多种文件类型，只需要用","隔开，添加新的文件类型说明和文件类型。如下：1，3为说明文件，2，4为文件类型
'如果没有选择文件，返回FALSE
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
我运行
Sub t1()
Dim f
f = Application.GetOpenFilename("Excel文件,*.xls")
MsgBox f
End Sub
运行程序 找了个 EXCEL 文件 但是打不开文件 （还有什么语句让他能打开文件）
对的，这个只是返回路径。想打开就用；
Workbooks.Open(F)
你刚刚的程序已把文件的路径付值给了F，所以括号里就是F。
运行后出现的是这个 1我还是没搞懂
Application.GetOpenFilename
这是什么意思 怎么用
2我关掉后 出现
类型不匹配（错误 13）
这个是打开另一个文件的对话框的。
弹出后，不选择、直接关闭，会报错。想不报错，可以用on error resume next处理。
