Filters.Add 规则名称,过滤文件类型, 规则起始位置(初始为1) :添加过滤规则 SelectedItems :选取的多个文件集合 InitialFileName :设置初始路径和文件名称 InitialView :可以设置初始文件的显示样式(文件查看类型) Title :对话框标题 show :可以判断用户是否点击了取消按钮,如果点击取消会返回0,否则返回-1 ilters.Clear...
msoFileDialogOpen:枚举为1,表示打开对话框。允许选择一个或多个文件,可使用 Execute 方法打开。 msoFileDialogSaveAs:枚举为2,表示另存为对话框 - 允许选择一个文件,可使用 Execute 方法另存。 msoFileDialogFilePicker:枚举为3,表示文件选取对话框,允许选择一个或多个文件,通过SelectedItems获取。 msoFileDialogFolderPic...
expression.SelectedItems expression代表FileDialog物件的變數。 範例 下列範例會使用FileDialog物件顯示 [檔案選擇器]對話方塊,並在訊息方塊中顯示每個選取的檔案。 VB複製 SubMain()'Declare a variable as a FileDialog object.DimfdAsFileDialog'Create a FileDialog object as a File Picker dialog box.Setfd = Applic...
If .Show = -1 Then 'Step through each string in the FileDialogSelectedItems collection. For Each vrtSelectedItem In .SelectedItems 'vrtSelectedItem is aString that contains the path of each selected item. 'Use any file I/O functions that you want to work with this path. 'This example...
为了将FileDialog返回的SelectedItem作为对象使用,首先你需要声明一个对象变量,并且将FileDialog的SelectedItems属性赋予这个变量。下面是一个示例代码: Sub SelectFile() Dim fd As FileDialog Dim selectedItem As Variant '创建一个FileDialog对象 Set fd = Application.FileDialog(msoFileDialogFilePicker) '显示FileDialog...
FileDialogSelectedItems集合里 FileDialogSelectedItems集合里。使用SelectedItems属性可以返回FileDialogSelectedItems集 合。通过设定FileDialog对象的AllowMultiSelect属性为True,用户就可以同时按下Shift键或者 Ctrl键和文件名称,选择一个或多个文件。 接下来的过程示范了如何使用上面提及的属性,该过程打开一个新的工作簿并且...
If FileDialog.Show = -1 Then '获取用户选择的文件路径 SelectedFile = FileDialog.SelectedItems(1) '在这里可以对选定的文件进行操作 '例如:打开文件、读取数据等 '示例:打开选定的文件 Workbooks.Open SelectedFile End If '释放资源 Set FileDialog = Nothing End Sub ``` 2.保存文件对话框: ```vba Sub...
FileDialogSelectedItems 集合中捕获用户选择的文件路径。示例 1：显示打开文件对话框并显示文件名 下面的代码引用自 VBA 帮助。显示“打开文件”对话框，允许用户选择一个或多个文件，然后依次显示每个文件带路径的完整名称。、结果：示例 2：指定默认文件路径 下面的代码为用户提供了默认的文件路径，即 Excel 的默认...
加红处的SelectedItems(2)即为filedialog的属性,括号内的数字2为获取选定文件列表第2个文件的路径,运行到此处的时候会弹出一下窗口 选择多个文件后,点击确定按钮,查看A1单元格的内容为选择的文件里面的第二个文件的路径,如下图。 当不可以多选时,SelectedItems()括号内的数字只能为1!!!
If .Show = -1 Then For Each varSelectedItem In.SelectedItems MsgBox "文件路径是: " & varSelectedItem Next varSelectedItem End If End With Set fd = Nothing End Sub 代码中的Show方法显示文件对话框并返回一个Long值,如果用户按下操...