VBA 2007 Filedialog Добавление фильтров

Question

Я использую Access 2007 и пытаюсь отфильтровать список файлов FileDialog с помощью фильтра. Во время отладки код возвращает ошибку в строке .Filters.Add: ошибка времени выполнения «5»: неверный вызов или аргумент процедуры. Я просмотрел StackOverflow и Microsoft. Метод .Add представляется правильным.

Dim fn As Object 
Set fn = Application.FileDialog(3) 
With fn 
    .InitialFileName = "C:\BillData\" 
    .Title = "Select input file" 
    .Filters.Clear 
    .Filters.Add "Bill Files", "ccc.*" 
    .AllowMultiSelect = False 
    .InitialView = msoFileDialogViewDetails 
End With 

Если я пропущу эту строку кода, все остальное, кажется, работает правильно. Ваша помощь будет принята с благодарностью.

Answer 1

Предполагая, что вы ищете файлы типа «test.ccc» или «myresource.ccc», ваш фильтр должен быть «* .ccc». Если у вас на самом деле есть куча файлов с именем ccc разных типов файлов, таких как «ccc.txt», «ccc.jpg» «ccc.doc» и т. Д., Вам нужно будет фильтровать их через InitialFileName like this.