顯示標準的“打開”對話框,獲取用戶文件名,而不必真正打開任何文件。
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