如何用openxlsx将多组DataFrame列表写入多份Excel工作簿对应工作表？

核心问题说明 #

你之前使用write.xlsx的append=TRUE参数时出现问题，是因为该参数的作用是在同一个工作表中追加行数据，而非添加新的工作表。要实现多工作表的写入/追加，需要使用openxlsx的工作簿对象操作函数（createWorkbook、loadWorkbook、addWorksheet、writeData）。

方法一：一次性生成完整工作簿（推荐，适合批量处理） #

这种方式直接为每个地点创建包含所有数据类型工作表的工作簿，无需多次读写文件，效率更高，适配100+地点的场景。

library(openxlsx)
library(dplyr)

# 把所有数据类型整理到一个列表，键名对应工作表名称
all_data_types <- list(
  "第一类数据" = firstdata_all,
  "第二类数据" = seconddata_all
)

# 遍历每个地点，生成对应工作簿
for (place in placeID) {
  # 创建空工作簿
  wb <- createWorkbook()
  
  # 为每个数据类型添加工作表并写入对应地点的数据
  for (type_name in names(all_data_types)) {
    addWorksheet(wb, sheetName = type_name)
    writeData(wb, sheet = type_name, x = all_data_types[[type_name]][[place]])
  }
  
  # 保存工作簿，文件名包含地点和日期
  saveWorkbook(wb, file = paste0(place, "_", Sys.Date(), ".xlsx"), overwrite = TRUE)
}

方法二：分批次追加工作表（适合逐步添加数据的场景） #

如果已经存在包含部分数据的工作簿，需要追加新的数据类型工作表，可以用以下方式：

# 第一步：先写入第一类数据，生成初始工作簿
for (place in placeID) {
  file_path <- paste0(place, "_", Sys.Date(), ".xlsx")
  write.xlsx(firstdata_all[[place]], file = file_path, sheetName = "第一类数据")
}

# 第二步：追加第二类数据到已存在的工作簿
for (place in placeID) {
  file_path <- paste0(place, "_", Sys.Date(), ".xlsx")
  # 加载已存在的工作簿
  wb <- loadWorkbook(file_path)
  # 添加新工作表
  addWorksheet(wb, sheetName = "第二类数据")
  # 写入第二类数据到新工作表
  writeData(wb, sheet = "第二类数据", x = seconddata_all[[place]])
  # 保存修改后的工作簿
  saveWorkbook(wb, file_path, overwrite = TRUE)
}

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