R中导出tibble到Excel时如何给文件名追加当前日期

核心实现逻辑是通过字符串拼接函数，将文件名前缀、日期变量、文件后缀组合为完整文件名，推荐使用无分隔符拼接函数paste0完成该操作。

基础实现代码 #

CurrentDate <- Sys.Date()
# 拼接得到带日期的文件名，生成格式示例：Tester_2024-05-20.xlsx
output_filename <- paste0("Tester_", CurrentDate, ".xlsx")
saveWorkbook(wb, output_filename, overwrite = TRUE)

自定义日期格式实现 #

如果需要调整日期显示格式（比如去掉文件名中的横杠、追加时间信息），可以用format()函数预处理日期变量：

# 自定义日期格式为YYYYMMDD，生成文件名示例：Tester_20240520.xlsx
CurrentDate <- format(Sys.Date(), "%Y%m%d")
output_filename <- paste0("Tester_", CurrentDate, ".xlsx")
saveWorkbook(wb, output_filename, overwrite = TRUE)

如果需要跨系统传输文件，建议使用无特殊分隔符的日期格式，避免兼容性问题

常用说明 #

• 如果你是直接导出tibble到Excel，使用writexl::write_xlsx、openxlsx::write.xlsx等函数时逻辑完全一致，将拼接好的文件名传入对应路径参数即可
• 常用日期格式符参考：
  • %Y：4位年份，示例：2024
  • %m：2位月份，示例：05
  • %d：2位日期，示例：20
  • %H：2位小时（24小时制），示例：14
  • %M：2位分钟，示例：30

内容的提问来源于stack exchange，提问作者JeffWithpetersen