将包含日期的文件名转换为QQ-YYYY格式，并作为列插入R中的N个excel文件

library(readxl)
library(writexl)

# 设置文件路径和文件名的前缀
file_path <- "path/to/files/"
file_prefix <- "file_prefix_"

# 设置日期正则表达式，假设日期格式为YYYY-MM-DD
date_regex <- "[0-9]{4}-[0-9]{2}-[0-9]{2}"

# 读取N个Excel文件
n <- 10
for (i in 1:n) {
  file_name <- paste0(file_prefix, i, ".xlsx")
  file <- read_excel(paste0(file_path, file_name))
  
  # 获取文件名
  file_date <- sub(file_prefix, "", file_name)
  
  # 提取日期
  date <- regmatches(file_date, regexpr(date_regex, file_date))
  
  # 格式转换
  qq_yyyy <- paste("QQ-", format(as.Date(date), "%Y"), sep = "")
  
  # 添加列
  file <- cbind(file, QQ_YYYY = qq_yyyy)
  
  # 写入Excel文件
  write_xlsx(file, paste0(file_path, file_prefix, i, "_updated.xlsx"))
}