使用排除过滤器（Excel VBA）打开文件对话框

Question

我目前正在为Excel编写一个小脚本来导入csv文件。因此，我使用csv-filter集成了一个打开的文件对话框。

 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文件，如

• FILE.CSV
• test.csv
• file_1.csv
• lala_2.csv
• ...

我能否以这种方式修改我的过滤器，他只显示没有＆＃39; _＃＆＃39;在＆＃39; .csv＆＃39;？

面前

感谢您的帮助。 祝福

的Stefan

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文件，但这是您可以做的最好的。

请参阅Microsoft网站上的 doc 。