在文件名中使用日期变量

Question

我写了一个下面提到的代码，将查询导出到一个Excel文件。

 Public Function exportToXl11()
   Dim dbs As DAO.Database
   Set dbs = CurrentDb

   Dim sFilename As String

      sFilename = "c:\ExportFile\Output_Results.xlsx"

      DoCmd.OutputTo acOutputQuery, "metrics2", acFormatXLSX, sFilename, Autostart:=False
End Function

我有另一个表名为 "Date1"，其中有日期。我想要一个代码，将导出查询与 "Date1 "表中给出的日期。像输出将是 "Output_results_23-05-2020.xlsx"，而不是 "Output_Results.xlsx"

Answer 1

你可以在文件名变量中包含日期。

sFilename = "c:\ExportFile\Output_Results_" & Format$(Now, "yyyymmdd") & ".xlsx"

你可以用任何你想要的方式来格式化它，但是确保你不包含文件名中不允许的字符。