GetOpenFilename的使用方法和示例

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