导出到当前路径的代码不何错

ycxchen

我想将一查询导出，在导出的文件前自动加上当前日期，并在一命令按钮的单击事件中写如下代码，但编译时提示出错，请大家指教。

Dim Expath As String
Expath = CurrentProject.Path & "\"

   DoCmd.TransferSpreadsheet acExport, , "查询1", Expath & "date() &文件名.xls," True

liwen

DoCmd.TransferSpreadsheet acExport, , "查询1", Expath & date()  &  "文件名.xls", True

未检测，感觉你的引号的位置不对。

ycxchen

谢谢版主!问题解决了。再请教一下。
运行“DoCmd.TransferSpreadsheet acExport, , "查询1", Expath & date()  &  "文件名.xls", True”后，我想加以下一句提示：
msgbox"导出文件成功，文件在& Expath &目录下，请查看！"，运行时不能将当前目录显示出来，请问，为什么呢？

ycxchen

我太粗心，修改后问题解决了。正确的为：
msgbox"导出文件成功，文件在"& Expath &"目录下，请查看！"，