展开全部
朋友,我发给你的附件中不就是例子吗!其实也就几个参数而以;
你可以偿试62616964757a686964616fe58685e5aeb931333332626635改下里面的参数,会存现不动的效果;我把几个参的详细给你说下吧:全部是我以前自己学习的时候总结的。
一、概述基本语法
'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