如何将R语言中的data.frame写入已存在的Excel文件的指定现有工作表？

我懂你遇到的麻烦——想把data.frame数据写入已经存在的Excel文件里的现有工作表，不管用xlsx还是openxlsx都没成功，咱们先拆解问题根源，再给你可行的解决方案：

为什么之前的方法行不通？ #

• xlsx包：append = TRUE这个参数的作用是给Excel新增一个工作表，不是覆盖已存在的工作表。所以当你指定的Sheet1已经存在时，它必然会抛出"工作表已存在"的错误。
• openxlsx包：直接调用write.xlsx(append = TRUE)时，它只会在文件不存在时创建新文件、文件存在时添加新工作表，并不会帮你覆盖已有的Sheet1——你看到的"删除原有文件创建新文件"，其实是它默认生成了一个只包含新Sheet1的文件，把原文件直接覆盖了。

正确的解决方案 #

方案1：使用openxlsx包（推荐，无需Java依赖） #

这个包操作更轻便，不需要配置Java环境，核心思路是先加载现有工作簿，修改指定工作表后再保存回去：

setwd('C:\\Users\\Administrator\\Desktop\\MFOLDER')
mydata <- data.frame(category=LETTERS, amount=1:26)

library(openxlsx)
# 1. 加载已有的Excel工作簿
wb <- loadWorkbook("existingfile.xlsx")

# 2. 清除目标工作表的原有内容（如果需要完全替换数据）
# 这里行数和列数设得宽泛些，确保能清空所有内容
deleteData(wb, sheet = "Sheet1", rows = 1:1000, cols = 1:100)

# 3. 将新数据写入Sheet1，从第1行第1列开始
writeData(wb, sheet = "Sheet1", x = mydata, startRow = 1, startCol = 1, rowNames = FALSE)

# 4. 保存工作簿，覆盖原文件
saveWorkbook(wb, "existingfile.xlsx", overwrite = TRUE)

如果你不想完全覆盖原有内容，只想在数据末尾追加，可以先获取原有数据的行数，再调整写入的起始位置：

# 获取Sheet1原有数据的行数
existing_row_count <- dim(read.xlsx("existingfile.xlsx", sheet = "Sheet1"))[1]
# 从原有行数+1的位置开始写入新数据
writeData(wb, sheet = "Sheet1", x = mydata, startRow = existing_row_count + 1, startCol = 1, rowNames = FALSE)

方案2：使用xlsx包（需Java环境） #

如果你必须使用xlsx包，就得通过操作工作簿对象来修改已有工作表：

setwd('C:\\Users\\Administrator\\Desktop\\MFOLDER')
mydata <- data.frame(category=LETTERS, amount=1:26)

library(xlsx)
# 1. 加载已有的Excel工作簿
wb <- loadWorkbook("existingfile.xlsx")

# 2. 获取目标工作表对象
target_sheet <- getSheets(wb)[["Sheet1"]]

# 3. 清除原有内容：删除工作表里的所有行
existing_rows <- getRows(target_sheet)
removeRow(existing_rows)

# 4. 将新数据写入工作表，从第1行开始
addDataFrame(mydata, sheet = target_sheet, startRow = 1, startColumn = 1, row.names = FALSE)

# 5. 保存工作簿
saveWorkbook(wb, "existingfile.xlsx")

注意事项 #

• 操作Excel文件时，确保文件没有被其他程序（比如Excel客户端）打开，否则会出现保存失败的情况。
• openxlsx包的性能比xlsx更好，且不需要依赖Java环境，优先推荐使用。

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