R中使用write.xlsx向单个Excel添加多工作表失败求助

• 你用的应该是xlsx包的write.xlsx()函数，这个函数的append参数设计存在缺陷：每次调用时它都会尝试重新读取现有Excel文件并创建新工作簿对象，但如果读取时出现文件锁定（比如文件在后台被打开），或者包内部处理逻辑出错，就会导致之前的工作表被覆盖，最终只剩最后一个写入的工作表。
• 设置overwrite=FALSE时，若文件已存在会直接报错；而overwrite=TRUE会直接覆盖整个文件，自然留不住之前的工作表。

方案1：用xlsx包手动创建工作簿（规避append参数） #

不要依赖append参数，手动创建工作簿对象，逐个添加工作表后统一保存，逻辑更可靠：

# 加载xlsx包
library(xlsx)

# 创建空工作簿
wb <- createWorkbook()

# 逐个添加工作表并写入数据
addWorksheet(wb, sheetName = "IRIS")
writeData(wb, sheet = "IRIS", x = iris)

addWorksheet(wb, sheetName = "CARS")
writeData(wb, sheet = "CARS", x = mtcars)

addWorksheet(wb, sheetName = "TITANIC")
writeData(wb, sheet = "TITANIC", x = Titanic)

# 保存工作簿到文件
saveWorkbook(wb, file = "mydata.xlsx", overwrite = TRUE)

方案2：换用openxlsx包（更推荐） #

openxlsx包的工作表写入逻辑更稳定，支持一次性写入多工作表，追加操作也更顺畅：

# 安装并加载openxlsx包（首次使用需安装）
# install.packages("openxlsx")
library(openxlsx)

# 一次性写入多个数据框到不同工作表
write.xlsx(
  x = list(IRIS = iris, CARS = mtcars, TITANIC = Titanic),
  file = "mydata.xlsx",
  overwrite = TRUE
)

# 若要给已存在的文件追加新工作表：
wb <- loadWorkbook("mydata.xlsx")
addWorksheet(wb, "NEW_SHEET")
writeData(wb, "NEW_SHEET", x = mtcars)
saveWorkbook(wb, "mydata.xlsx", overwrite = TRUE)

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