GetOpenFilename 方法返回所选择的文件名或者用户输入的文件名，返回的名称包含文件路径。如果参数 MultiSelect 为 True，则返回由所选文件名组成的数组（即使只选择了一个文件名）。如果用户单击“取消”关闭对话框，则返回 False。示例 1：显示打开对话框和选择的文件名 下面的代码显示“打开”对话框，并列出文件夹...
1. 未选择任何文件,直接点击对话框的“取消”按钮。 2. 此操作会使程序报错,提示无法找到“False.xlsx”文件。 3. 当未选择任何文件,GetOpenFilename返回的值是FALSE。 4. 解决上述报错的问题,我们需要在代码中设定一个判断,当str不为false时,再执行打开工作簿的动作。 至此我们基本上了解在VBA中可以通过GetOpe...
Sub mytest_GetOpenFilename() fileToOpen = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "打开文件", , True) 'MsgBox TypeName(fileToOpen) If TypeName(fileToOpen) = "Boolean" Then MsgBox "你选择了“取消”,将要退出程序": Exit Sub For Each rr In fileToOpen MsgBox ...
1.使用Application.GetOpenFilename函数调用“打开文件”对话框。 2.参数是一个字符串,用于指定可供用户选择的文件类型,格式为"文件类型描述(*.<扩展名>), *.<扩展名>"。可以指定多个文件类型,用逗号分隔。 3.GetOpenFilename返回用户选择的文件的路径。如果用户取消选择,返回False。 一些常见选项和用法: •Tit...
FileToOpen = Application.GetOpenFilename("文本文件(*.txt),*.txt") If FileToOpen <> False Then MsgBox "想要打开文件: " & FileToOpen End If End Sub 运行代码后的效果如图1所示。 图1 示例2:获取单个或者多个工作簿文件名 下面...
1. 当设置文件多选MultiSelect参数为TRUE后,选中多个文件后,GetOpenFilename方法返回的会是一个数组对象。 2. 因此在定义时,我们需要定义其为数组,且将GetOpenFilename方法返回的值赋给arr。 3. 如何得知返回的为数组,我们可以将其返回到工作表的单元格中测试一下;此处用到的代码是Range("A1:B1") = arr。
一、GetOpenFilename 方法简介 GetOpenFilename相当于Excel打开窗口,通过该窗口选择要打开的文件,并可以返回选择的文件完整路径和文件名。 二、基本用法 语法: 表达式.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect) 表达式 : 一个代表 Application 对象的变量。
1 GetOpenFilename方法设置文件多选MultiSelect参数为TRUE。2 选中多个文件后，返回的会是一个数组对象。3 在定义时，我们需要定义其为数组，且将GetOpenFilename方法返回的值赋给arr。4 我们可以将其返回到工作表的单元格中测试一下；此处用到的代码是Range("A1:B1") = arr。5 执行以上代码后，我们选择其中两...
Sub vab_GetOpenFilename()'GetOpenFilename相当于Excel打开窗口,通过该窗口选择要打开的文件,并可以返回选择的文件完整路径和文件名。 '显示标准的“打开”对话框,并获取用户文件名,而不必真正打开任何文件。 '语法:'表达式.GetOpenFilename(FileFilter,FilterIndex,Title,ButtonText,MultiSelect)'表达式 : 一个代表...