vba - 带有排除过滤器的打开文件对话框 (Excel VBA)

Question

我目前正在为 Excel 编写一个小脚本来导入 csv 文件。因此，我将打开文件对话框与 csv 过滤器集成在一起。

 With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True
    .Title = "Datei wählen"
    .InitialFileName = "c:\test\*.csv"
    .Show

    If .SelectedItems.Count > 0 Then
       'do something 
    End If
 End With

到目前为止，这对我来说效果很好。但不幸的是我有不同类型的 csv 文件，例如

• 文件.csv
• 测试.csv
• file_1.csv
• lala_2.csv
• ...

我可以以这种方式修改我的过滤器，让他只显示“.csv”前面没有“_#”的文件吗？

感谢您的帮助。最美好的祝愿

斯特凡

Answer 1

不幸的是，您在这里的限制非常有限，只能使用通配符*和?，它们不允许排除字符。

你可以有一个像这样的过滤器:

With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True
    .Title = "Datei wählen"
    .InitialFileName = "c:\test\test_*.csv"
    .Show

    If .SelectedItems.Count > 0 Then
       'do something 
    End If
End With  

检索以 test_ 开头的所有 CSV 文件，但这是您能做的最好的事情。

参见doc 在 Microsoft 网站上。