FileDialogは以前のフィルタを維持します

Question

私はAccessデータベースにフォームを作成しています。ファイルダイアログウィンドウを何度か開く必要があります。オプション値を数回変更してファイルダイアログウィンドウを開いた後、フィルタを変更しなかった理由は分かりません。

Public Sub Command17_Click() 
Dim fd As FileDialog 
Set fd = Application.FileDialog(msoFileDialogOpen) 
    With fd 
     .AllowMultiSelect = False 
     If Option18.Value = True Then 
     .Filters.Add "Access", "*.accdb", 1 
     Else 
     If Option20.Value = True Then 
     .Filters.Add "Excel", "*.xlsx", 1 
     End If 
     End If 
     .Show 

Text0.Value = fd.SelectedItems(1) 
    End With 
    Set fb = Nothing 
End Sub 

Answer 1

フィルタをクリアする必要があります。

With .Filters 
    .Clear 
    .Add "Access", "*.accdb", 1 
    '... 
End with