选择文件夹和文件名以保存 32 位和 64 位 MS-Access-2016 的新文件

如何解决选择文件夹和文件名以保存 32 位和 64 位 MS-Access-2016 的新文件

我正在尝试使用 MS Access VBA 中的文件对话框获取完整路径和文件名。 在我的 MS-Access 项目中，我希望能够将数据保存到用户可选择的文件夹和文件名中。 为了选择文件夹和文件名，MS-Access 提供了 FileDialog() 函数。

--> FileDialog()

设置 fDialog = Application.FileDialog(msoFileDialogSaveAs)

但是最新版本的 MS-Access（尤其是 64 位版本）的 FileDialog 函数不再支持 msoFileDialogSaveAs 选项。

是否有任何方法可以使用 API 函数（例如最新版本的 MS-Access 的 FileDialog 对象）从用户那里获取文件夹和文件名？

解决方法

有支持，但您需要参考 Microsoft Office 16.0 对象库：

枚举：

示例：

Public Function FileSaveDialog( _
    ByVal Filter As String,_
    ByVal Extension As String) _
    As String

    Dim FilterIndex As Long
    Dim FileName    As String
    
    With Application.FileDialog(msoFileDialogSaveAs)  ' 2
        For FilterIndex = 1 To .Filters.Count
            If (InStr(LCase(.Filters(FilterIndex).Description),LCase(Filter)) > 0) And _
                (LCase(.Filters(FilterIndex).Extensions) = LCase(Extension)) Then
                .FilterIndex = FilterIndex
                Exit For
            End If
        Next

        If .Show Then
            FileName = .SelectedItems(.SelectedItems.Count)
        End If
    End With
    
    FileSaveDialog = FileName

End Function