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