Question

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

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时显示另存为对话框

1 个答案: