从 Access 导出 csv 时显示另存为对话框

Posted 2023-05-07

【中文标题】从 Access 导出 csv 时显示另存为对话框

【英文标题】：Show the save as dialog when exporting in csv from Access

【发布时间】：2015-04-21 22:36:15

【问题描述】：

我正在使用这个简单的代码模块将表格导出到 csv 文件中：

Function ExportQuery()
 DoCmd.TransferText acExportDelim, "[Name of the Specific]", "[Name of the query]","[Name of file].csv"
End Function

但这会将文件导出到文档文件夹中。

我怎样才能做到这一点，当这个模块运行时，它会打开另存为对话框，让我选择保存文件的文件夹？

谢谢

【参考方案1】：

你可以使用代码

Dim getFolder As Object
Dim sLoc as string

Set getFolder = Application.FileDialog(msoFileDialogFolderPicker)
With getFolder
    .AllowMultiSelect = False
    If .Show = True Then
        sLoc = getFolder.SelectedItems(1) & "\"
    End If
end with

然后你可以像这样添加你的代码

DoCmd.TransferText acExportDelim, "[Name of the Specific]", "[Name of the query]", sLoc & [Name of file].csv

【讨论】：

如果您想使用该命名常量 (msoFileDialogFolderPicker)，请设置对 MS Office 类型库的引用。或者，您可以替换常量的值 (4) 并避免设置引用。

哦，对不起，我不得不提到这一点。但是 VBA 可能会注意到它需要它并要求自动添加。

如果您可以获得 Access 来执行此操作，请告诉我如何操作。谢谢。

我现在无法复制它。但是，当我第一次将它添加到我的代码中时，会弹出一个对话框，说这样的事情可能需要参考才能工作。是否要添加它。但我不能让它再次出现。但最好只使用值 4 而不是全名