MS Access FileDialog 过滤器在原始负载上不起作用

Posted

技术标签:

【中文标题】MS Access FileDialog 过滤器在原始负载上不起作用【英文标题】:MS Access FileDialog Filter doesn't work on original load 【发布时间】:2016-07-15 23:24:17 【问题描述】:

我有以下脚本代码,过滤器和标题设置在我第一次运行代码时不起作用,但后续使用它。

有什么建议吗?

Set f = Application.FileDialog(msoFileDialogFilePicker)

If f.Show = True Then

With f
    .Title = "Choose Excel File(s) to Import"
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xlsx"
    .AllowMultiSelect = True

    For Each varfile In .SelectedItems
        MsgBox "IMPORTING: " & varfile
        tblImport = varfile
        DoCmd.TransferSpreadsheet acImport, 10, "Parts", tblImport, True
    Next varfile
End With

【问题讨论】:

【参考方案1】:

在调用Show 方法之前设置FileDialog 属性。

Set f = Application.FileDialog(msoFileDialogFilePicker)

With f
    .Title = "Choose Excel File(s) to Import"
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xlsx"
    .AllowMultiSelect = True
    If .Show = True Then
        For Each varfile In .SelectedItems
            MsgBox "IMPORTING: " & varfile
            tblImport = varfile
            DoCmd.TransferSpreadsheet acImport, 10, "Parts", tblImport, True
        Next varfile
    End If
End With

【讨论】:

以上是关于MS Access FileDialog 过滤器在原始负载上不起作用的主要内容,如果未能解决你的问题,请参考以下文章

表单过滤器之间的 MS-Access

过滤器在 FileDialog 中不起作用

MS ACCESS 过滤器组合框所有选项

MS-Access 查询过滤器在“=”上正常,但在我使用“<>”时不可用?

VBA代码在MS Access中不区分大小写的过滤器

MS Access 点击信过滤报告