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

Question

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

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

但这会导出文档文件夹中的文件。

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

谢谢

Answer 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

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

Show the save as dialog when exporting in csv from Access

csv

ms-access

vba

ms-access-2013