[已解决]excel vba 如何设置打开文件的目录

13820873162

用Application.GetOpenFilename打开文件选择，但是如何设置打开的目录呢，我想指定一个不知道能不能设置。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-25 15:57

1. Sub test()
   
2.     With Application.FileDialog(msoFileDialogOpen)
   
3.         .InitialFileName = "d:"
   
4.         If .Show Then
   
5.             MsgBox .SelectedItems(1)
   
6.         End If
   
7.     End With
   
8.    
   
9. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub test()
   
2.     With Application.FileDialog(msoFileDialogOpen)
   
3.         .InitialFileName = "d:"
   
4.         If .Show Then
   
5.             MsgBox .SelectedItems(1)
   
6.         End If
   
7.     End With
   
8.    
   
9. End Sub

复制代码

hwc2ycy

设置 .InitialFileName属性即可。

hwc2ycy

InitialFileName  设置或返回一个 String 类型的值，代表文件对话框中初始显示的路径或文件名。可读/写。

zjdh

领会错了                        .

13820873162

hwc2ycy 发表于 2013-2-25 15:57

FileDialog(msoFileDialogOpen)打开文件后如何设置可选择的文件类型呢？？谢谢

hwc2ycy

FileDialog.Filters 属性
获取一个 FileDialogFilters 集合。只读。

FileDialogFilters.Add 方法
在“文件”对话框的“文件类型”下拉列表框的筛选器列表中添加一个新的文件筛选器。返回一个代表新添的文件筛选器的 FileDialogFilter 对象。
语法

表达式.Add(Description, Extensions, Position)

表达式   必需。一个代表 FileDialogFilters 对象的变量。

参数

名称 必选/可选 数据类型 说明
Description 必选 String 该文本表示要添加到筛选器列表中的文件扩展名的说明。
Extensions 必选 String 该文本代表要添加到筛选器列表中的文件扩展名。可以指定多个扩展名，每个扩展名必须以分号分隔。例如，可以向以下字符串分配参数：“*.txt; *.htm”。
  注释
不需要在扩展名两侧添加括号。在说明和扩展名字符串连接成一个文件筛选器项时，Microsoft Office 将自动在扩展名字符串两侧添加括号。

Position 可选 Variant 表示新控件在筛选列表中位置的数字。新筛选将插入到该位置的筛选之前。如果忽略该参数，筛选将添加到指定列表的末端。

说明


列表中的每个筛选器由两部分组成：文件扩展名（例如 .txt）和文件扩展名的文本说明（例如“文本文件”）。二者相结合，文件筛选器将在“文件类型”下拉列表框中显示为：文本文件(*.txt)。请注意，向列表中添加筛选器时，不会删除默认的筛选器。仅当选中“窗口”选项时才显示筛选器。如果 Position 无效，将显示超出范围运行时错误。如果 Description 和 Extensions 值无效，将显示运行时错误（分析）。

hwc2ycy

1. .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
   

复制代码