Excel VBA教程:GetOpenFilename方法

顯示標準的“打開”對話框,獲取用戶文件名,而不必真正打開任何文件。

expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

expression   必需。該表達式返回一個 Application對象。

FileFilter   Variant類型,可選。一個指定文件篩選條件的字符串。

本字符串由一個文件篩選字符串與 MS-DOS 通配符表達的文件篩選規則說明組成,中間以逗號分隔。每個字符串都在“文件類型”下拉列表框中列出。例如,下列字符串指定兩種文件篩選 —— 文本和加載宏:“文本文件 (*.txt)、*.txt、Add-In 文件 (*.xla)、*.xla”。

若要爲單個文件篩選類型使用多個 MS-DOS 通配符表達式,需用分號將通配符表達式分開。例如:“Visual Basic 文件 (*.bas; *.txt)、*.bas; *.txt”。

如果省略本參數,則默認參數值爲“所有文件 (*.*)、*.*”。

FilterIndex   Variant 類型,可選。指定默認文件篩選條件的索引號,取值範圍爲 1 到由 FileFilter 所指定的篩選條件數目。如果省略本參數,或者取值大於可用篩選數目,則採用第一個文件篩選條件。

Title   Variant 類型,可選。指定對話框的標題。如果省略本參數,則使用“打開”作爲標題。

ButtonText   Variant 類型,可選。僅用於 Macintosh。

MultiSelect   Variant 類型,可選。如果該值爲 True,則允許選定多個文件名,如果該值爲 False,則只允許選定單個文件名。默認值爲 False。

說明

本方法返回的是選定的文件名或用戶輸入的文件名。返回的名稱可能包含路徑的說明。如果 MultiSelect 爲爲 True,則返回值將是一個包含所有選定文件名的數組(即使僅選定了一個文件名)。如果用戶取消了對話框,則該值爲 False。

本方法可能更改當前驅動器或文件夾。

VBA示例

本示例顯示文本文件的“打開”對話框。如果用戶選擇了一個文件名,則在消息框中顯示所選的文件名。

fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章