使用exportwithformatting导出报表时如何在文件名加上日期

luzhuwang

在使用Access宏的exportwithformatting导出报表时，想实现在导出文件名上加上日期，经过查询试用了截图中的格式，但是报以下错误。使用转换VBA代码后运行没问题。想知道在不转换vba代码的情况下能否实现我的需求？谢谢

roych

放弃吧。如果不想用VBA，可以宏来调用由宏转换后的VBA。
比如：
runmacro "转换的宏"
2007版以后就不太支持函数了。2003版的宏可以用currentproject.path，把文件导出到相对位置。再后面连transferSpreadsheet都不被推荐使用了（只能在“所有宏”里才能找到）

lpf127

以我将ACCESS中的查询导出为Excel举例

在ACEESS的VBE编辑器中插入模块后，输入以下代码：
Sub 导出明细()
DoCmd.OutputTo acOutputQuery, "安徽", acFormatXLSX, "C:\Users\fwb1\Desktop\" & Format(Now(), "yyyymmddhhnnss") & ".xlsx", False
MsgBox "导出成功！！"
End Sub

Function out_excel()
Call 导出明细
End Function

然后，在宏里使用RunCode调用自定义的函数out_excel()即可。