open用法 vba_VBA 这个Application.GetOpenFilename 的用法 举个例子 谢谢让我知道怎么操作...

展开全部

朋友，我发给你的附件中不就是例子吗！其实也就几个参数而以；

你可以偿试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