excel - 在文件名中使用日期变量

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"

您可以以任何您想要的方式对其进行格式化，但请确保您不包含文件名中不允许的字符。