如何用R将修改后的数据写入多工作表Excel文件并保存？

核心思路 #

用openxlsx包完成全流程（无需Java依赖）：加载工作簿→读取工作表→数据替换→写回原工作表→保存工作簿。

完整代码示例 #

# 加载依赖包
library(openxlsx)
library(dplyr) # 可选，用base R也能实现

# 1. 定义替换规则：数值→对应字符
replace_map <- list(
  "9999" = "无有效数据",
  "9998" = "未完成填报"
)

# 2. 获取目标文件夹下所有xlsx文件路径
file_paths <- list.files(path = "./your_excel_folder", pattern = "\\.xlsx$", full.names = TRUE)

# 3. 遍历每个文件处理
for (file in file_paths) {
  # 加载工作簿（保留原格式）
  wb <- loadWorkbook(file)
  # 获取当前文件的所有工作表名
  sheet_names <- getSheetNames(file)
  
  # 遍历每张工作表
  for (sheet in sheet_names) {
    # 读取工作表数据
    df <- read.xlsx(wb, sheet = sheet)
    
    # 执行替换操作
    # 替换指定数值为对应字符
    df <- df %>%
      mutate_all(~ replace(., . %in% names(replace_map), replace_map[as.character(.)]))
    # 替换NA为[x]
    df[is.na(df)] <- "[x]"
    
    # 关键：将修改后的数据写回原工作表
    # 默认从A1单元格开始覆盖，与原表结构一致时无需额外参数
    writeData(wb, sheet = sheet, x = df)
  }
  
  # 保存修改后的工作簿，覆盖原文件
  saveWorkbook(wb, file, overwrite = TRUE)
}

writeData参数说明 #

startCol & startRow的适用场景

• 场景1：保留原表格式/表头
  如果原工作表有固定样式的表头（比如第1行是表头，第2行开始是数据），你只需要替换数据区域，就可以指定startRow=2, startCol=1，避免覆盖表头样式。
• 场景2：追加数据
  若要在现有工作表的末尾新增数据，先计算原表的行数（nrow(df_old)），然后设置startRow = nrow(df_old) + 1，实现数据追加。
• 场景3：修改局部区域
  比如只需要替换工作表中第3列到第5列、第2行到第100行的数据，先提取对应区域修改，再用startCol=3, startRow=2写回目标位置。

注意事项 #

• 确保修改后的df列数与原工作表一致，否则写回时会导致列错位；
• 如果原工作表有复杂格式（如合并单元格、条件格式），loadWorkbook会保留这些格式，writeData默认不会破坏原有格式（除非覆盖到格式区域）；
• 测试时可以先复制一份文件，避免误改原文件。

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