使用R的openxlsx包写入Excel多工作表失败求助

我来帮你搞定这个困扰！你遇到的情况确实是因为openxlsx的写入逻辑细节没踩对，再加上循环里的小变量错误导致的，咱们一步步来修正：

首先排查循环里的明显错误 #

你写的lapply循环里用了file.list[i]，但循环的迭代变量是x，这里的i根本没定义啊！这会导致每次都读取同一个文件（如果i之前被定义过的话），或者直接报错，但你说没报错，估计是之前环境里有i的残留值，这肯定会出问题。先把这个变量名改对：

file.list <- list.files(pattern = "*.xlsx") # 假设你是这么获取的文件列表
file_name <- "your_output_file.xlsx"

lapply(seq_along(file.list), function(x) {
  # 读取当前文件，用x而不是i
  current_df <- read.xlsx(file.list[x])
  # 第一次写入用append=FALSE创建文件，之后用append=TRUE追加
  append_status <- ifelse(x == 1, FALSE, TRUE)
  write.xlsx(current_df, 
             file = file_name, 
             sheetName = basename(file.list[x]), # 用basename避免路径作为表名（Excel表名不支持特殊字符）
             col.names = TRUE, 
             row.names = FALSE, 
             append = append_status)
})

更稳定的推荐方案：直接操作工作簿对象 #

其实openxlsx更推荐通过创建工作簿对象的方式来批量添加工作表，这种方法避免了多次读写文件可能出现的覆盖问题，逻辑也更清晰：

library(openxlsx)

# 获取目标Excel文件列表
file.list <- list.files(pattern = "*.xlsx")
output_file <- "combined_data.xlsx"

# 1. 创建一个空的工作簿对象
wb <- createWorkbook()

# 2. 遍历每个文件，读取数据并添加为工作表
for (single_file in file.list) {
  # 读取数据框
  df <- read.xlsx(single_file)
  # 生成干净的工作表名（去掉路径和.xlsx后缀）
  sheet_name <- tools::file_path_sans_ext(basename(single_file))
  # 添加新工作表
  addWorksheet(wb, sheetName = sheet_name)
  # 把数据写入对应的工作表
  writeData(wb, 
            sheet = sheet_name, 
            x = df, 
            colNames = TRUE, 
            rowNames = FALSE)
}

# 3. 保存整个工作簿到文件
saveWorkbook(wb, file = output_file, overwrite = TRUE)

为什么你的手动测试会失败？ #

你手动测试时只保留最后一个工作表，大概率是因为sheetName用了带路径的文件名，Excel对表名有字符限制（比如不能有斜杠、冒号等），导致第二次的append=TRUE实际上没有成功创建新工作表，反而覆盖了之前的？用basename()和file_path_sans_ext()处理后，表名会更合规，避免这类隐藏问题。

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