Excel VBA 的GetOpenFilename 方法

 一、GetOpenFilename 方法簡介

GetOpenFilename相當於Excel打開窗口，通過該窗口選擇要打開的文件，並可以返回選擇的文件完整路徑和文件名。

二、基本用法

語法：

表達式.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

表達式 ： 一個代表 Application 對象的變量。

說明：

Application.GetOpenFilename("文件類型篩選規則(就是說明)","優先顯示第幾個類型的文件","標題","是否允許選擇多個文件名")

參數解析：

1. 1. FileFilter：一個指定文件篩選條件的字符串。

   2. FilterIndex：指定默認文件篩選條件的索引號，取值范圍為 1 到由 FileFilter 所指定的篩選條件數目。如果省略該參數，或者該參數的值大於可用篩選條件數，則使用第一個文件篩選條件。

   3. Title：指定對話框的標題。如果省略該參數，則標題為“打開”。

   4. ButtonText：僅限 Macintosh。

   5. MultiSelect：如果為 True，則允許選擇多個文件名。如果為 False，則只允許選擇一個文件名。默認值為 False

注意：以上參數都是可選參數，數據類型均為Variant。

三、使用示例

打開時有會彈出這樣的窗口：

 打開Excel文件VBA代碼：

設置打開某類文件，參照下面規則：“文件類型說明文字，*文件類型”：

Sub OpenExcel()
    Dim strFileName As String
    strFileName = Application.GetOpenFilename("Excel 工作簿(*.xlsx),*.xlsx,Excel 啟用宏的工作簿(*.xlsm),*.xlsm,Excel 97-2003 工作簿 (*.xls),*.xls",1)
    MsgBox strFileName
End Sub