FileDialog 保留以前的过滤器答案

【问题标题】：FileDialog persists previous filtersFileDialog 保留以前的过滤器
【发布时间】：2017-05-30 19:07:42
【问题描述】：

我在 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

【问题讨论】：

标签： vba

【解决方案1】：

您需要清除过滤器。

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

【讨论】：