如何在R语言中使用另一张Excel工作表替换工作簿内的指定工作表

你可以用openxlsx包实现这个需求，该包无需依赖Java环境，直接就能修改现有xlsx文件的工作表内容，操作逻辑和你替换向量元素的逻辑一致：先定位要替换的目标工作表，删除原有内容后写入新内容即可。

无格式需求（仅替换数据） #

如果不需要保留新工作表的样式、公式等，只替换数据内容，操作代码如下：

# 首次使用先安装包
install.packages("openxlsx")
# 加载包
library(openxlsx)

# 1. 读取要替换的新工作表数据
new_sheet_data <- read.xlsx("存放新表的文件.xlsx", sheet = "新工作表名称")

# 2. 加载需要修改的目标工作簿
target_wb <- loadWorkbook("要修改的目标工作簿.xlsx")

# 3. 删掉目标工作簿里原来的同名工作表（避免写入重复表名报错）
target_sheet_name <- "要替换的工作表名称"
if (target_sheet_name %in% sheets(target_wb)) {
  removeWorksheet(target_wb, sheet = target_sheet_name)
}

# 4. 新增同名工作表，写入新数据
addWorksheet(target_wb, sheetName = target_sheet_name)
writeData(target_wb, sheet = target_sheet_name, x = new_sheet_data)

# 5. 保存修改后的文件，overwrite设为TRUE允许覆盖原文件，怕出错可以改成新的文件名
saveWorkbook(target_wb, "要修改的目标工作簿.xlsx", overwrite = TRUE)

带格式需求（保留新表样式、公式等） #

如果需要原样保留新工作表的单元格样式、公式、条件格式、图表等内容，可以直接克隆工作表到目标工作簿：

library(openxlsx)

# 加载两个工作簿
target_wb <- loadWorkbook("要修改的目标工作簿.xlsx")
new_wb <- loadWorkbook("存放新表的文件.xlsx")

# 删除原有旧工作表
target_sheet_name <- "要替换的工作表名称"
if (target_sheet_name %in% sheets(target_wb)) {
  removeWorksheet(target_wb, sheet = target_sheet_name)
}

# 克隆新工作表到目标工作簿，沿用原来的工作表名
cloneWorksheet(target_wb, 
               sheetName = target_sheet_name, 
               clonedSheet = "新工作表名称", 
               wbFrom = new_wb)

# 保存文件
saveWorkbook(target_wb, "要修改的目标工作簿.xlsx", overwrite = TRUE)

注意：上述方法仅支持xlsx格式文件，如果你的文件是xls格式，建议先转成xlsx后再操作。

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