Excel VBA中的GetOpenFilename 方法.docVIP

Excel VBA中的GetOpenFilename 方法详解 GetOpenFilename方法： 显示标准的“打开”对话框，获取用户文件名，而不必真正打开任何文件。 expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect) expression 必需。该表达式返回一个 Application 对象。 FileFilter Variant类型，可选。一个指定文件筛选条件的字符串。 本字符串由一个文件筛选字符串与 MS-DOS 通配符表达的文件筛选规则说明组成，中间以逗号分隔。每个字符串都在“文件类型”下拉列表框中列出。例如，下列字符串指定两种文件筛选 —— Excel文件和所有文件：Microsoft Office Excel 文件(*.xls),*.xls,所有文件(*.*),*.*。若要为单个文件筛选类型使用多个 MS-DOS 通配符表达式，需用分号将通配符表达式分开。例如：Visual Basic 文件 (*.bas; *.txt),*.bas; *.txt。如果省略本参数，则默认参数值为：所有文件 (*.*),*.*。 FilterIndex Variant 类型，可选。指定默认文件筛选条件的索引号，取值范围为 1 到由 FileFilter 所指定的筛选条件数目。如果省略本参数，或者取值大于可用筛选数目，则采用第一个文件筛选条件。（注：本参数用处不大，如果想把哪种类型的文件设为默认，把他放在第一位就行了）。 Title Variant 类型，可选。指定对话框的标题。如果省略本参数，则使用“打开”作为标题。 ButtonText Variant 类型，可选。仅用于 Macintosh。 MultiSelect Variant 类型，可选。如果该值为 True，则允许选定多个文件名，如果该值为 False，则只允许选定单个文件名。默认值为 False。 说明： 本方法返回的是选定的文件名或用户输入的文件名。返回的名称可能包含路径的说明。 (1).如果MultiSelect为False，则返回值是一个变量值，该值为包含路径的文件名。如果用户“取消”了对话框，则该变量的值为False。 (2).如果 MultiSelect 为 True，则返回值将是一个包含所有选定文件名的数组（即使仅选定了一个文件名）。如果用户取消了对话框，则该值为 （一个变量值）False。本方法可能更改当前驱动器或文件夹 示例： (1)、MultiSelect:=False。本示例显示Excel文件的“打开”对话框。如果用户选择了一个文件名，则在消息框中显示所选的文件名。如果没有选中文件，则显示“没有选中文件”。 Sub Openfile() Dim fileToOpen As Variant fileToOpen = Application.GetOpenFilename(FileFilter:=Microsoft Office Excel 文件(*.xls),*.xls, _ MultiSelect:=False) (Text Files (*.txt), *.txt) If fileToOpen False Then Debug.Print fileToOpen MsgBox 选中了 fileToOpen 文件 Else MsgBox 没有选中文件 End If End Sub 注意：示例（1）中，由于MultiSelect:=False，所以fileToOpen是一个变量，其后的判断语句必须用If fileToOpen False Then…，而不能用If IsArray(fileToOpen) Then…。因为不论是否选中了文件，fileToOpen都不是一个数组，所以用这句话不能区分是选中了文件，还是选择了“取消”。虽然不会报错，但达不到目的。 （2）、MultiSelect:=True。本示例显示Excel文件的“打开”对话框。如果用户选择了多个（一个也行）文件名，则分别打开这些文件，并复制其第一行的内容到本工作表中。如果用户没有选中文件，则同上例，显示“没有选中文件”。 Sub Openfile() Dim fileToOpen As Variant Dim i As Integer, name1 As String fileToOpen = Application.GetOpenFilename(FileFilter:=Microsoft Office Excel 文件(