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

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

设置fDialog=Application.FileDialog（msoFileDialogSaveAs）

但是最新版本的MS Access（特别是64位版本）的FileDialog函数不再支持msoFileDialogSaveAs选项

---

对于最新版本的MS Access，是否有任何方法可以使用类似FileDialog对象的API函数从用户处获取文件夹和文件名？

有支持，但您需要对Microsoft Office 16.0对象库的引用：

枚举：

例如：

公共函数文件保存对话框（_
ByVal筛选器作为字符串_
ByVal扩展名（作为字符串）_
作为字符串
暗过滤器索引与长过滤器索引相同
将文件名设置为字符串
使用Application.FileDialog（msoFileDialogSaveAs）2
对于FilterIndex=1到.Filters.Count
如果（InStr（LCase（.Filters（FilterIndex）.Description），LCase（Filter））>0）和_
（LCase（.Filters（FilterIndex）.Extensions）=LCase（Extension））然后
.FilterIndex=FilterIndex
退出
如果结束
下一个
如果，那就表演吧
FileName=.SelectedItems（.SelectedItems.Count）
如果结束
以
FileSaveDialog=FileName
端函数

嗨，古斯塔夫，非常感谢您的回复。您能告诉我Microsoft Office 16.0对象库是如何解决这个问题的吗。哪个函数解决了这个问题？我该如何使用它。您可能有任何示例代码吗？此库包含枚举/常量（即

msoFileDialogSaveAs

）-请参见图片。当我使用选项msoFileDialogSaveAs执行FileDialog时，我会收到以下消息：Microsoft Access:FileDialog:Object不支持此属性或方法我在答案中添加了一个示例。