访问VBA-对话框。寻找特定档案

Question

现在我有了这段代码，以便打开一个对话框来搜索一种具体的文件类型，即称为内存的.txt：memory.txt

所以：

    Dim S As String
S = OpenCommDlg("C:\memory.txt")

If IsNull(S) Or S = "" Then Exit Sub

不幸的是，这当然会在C:\中打开一个对话框，但是要查找图像类型的档案，这绝对不是我要的。您可以在所附图片的右侧看到该图片：

任何人都知道如何修改此代码以便找到我们要查找的档案类型，它的名称是...

Answer 1

您可以使用FileDialog方法。这样会将完整的文件路径保存到您的s字符串中，并且您可以添加多个过滤器以按文件类型进行过滤。

Dim s As String

With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Clear
    .Filters.Add "Text Files", "*.txt"
    .Filters.Add "All Files", "*.*"
    If .Show Then s = .SelectedItems(1)
End With

Debug.Print s

如果要自动使用文件名填写输入框，则只需将此行添加到with语句中即可：

.InitialFileName = "C:\memory.txt"