VBA 对话 FileFilter 部分文件名

Question

我有一个包含几个 .txt 文件的目录。让我们说

hi.txt
hello.txt
hello_test.txt
test.txt

在 VBA 中使用文件对话框，如何过滤以在下拉列表中仅显示“*test.txt”匹配文件(即最后两个)？或者我只能使用 *.过滤器？

以下似乎应该有效但无效:

Sub TestIt()
   Dim test As Variant 'silly vba for not having a return type..
   test = Application.GetOpenFilename(FileFilter:="test (*test.txt), *test.txt")
End Sub

编辑:澄清一下，以防万一这不清楚:我想过滤“test.txt”而不是“.txt”文件，所以我只能从选择器中的 hello_test.txt 和 test.txt 中进行选择。

Answer 1

我看到您担心将文本放入文件名框中，但这正是您需要做的，并且似乎是您的情况的常态。我挂断了完全相同的问题。

这是我使用的:

Public Sub Browse_Click()

Dim fileName As String
Dim result As Integer
Dim fs

With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Select Test File"
    .Filters.Add "Text File", "*.txt"
    .FilterIndex = 1
    .AllowMultiSelect = False
    .InitialFileName = "*test*.*"

    result = .Show

    If (result <> 0) Then
        fileName = Trim(.SelectedItems.Item(1))

        Me!txtFileLocation = fileName

    End If
End With