R语言openxlsx包如何删除多个工作表或仅保留指定工作表

openxlsx包完全支持删除多个工作表、仅保留指定工作表的需求，两种场景的实现方法如下：

当你明确知道需要删除的工作表名称/索引时，可直接调用removeWorksheet()函数批量删除：

# 加载包
library(openxlsx)
# 读取目标Excel工作簿
wb <- loadWorkbook("你的Excel文件路径.xlsx")

# 方式1：按工作表名称批量删除，示例删除Sheet2、临时表、Sheet4三个工作表
removeWorksheet(wb, sheet = c("Sheet2", "临时表", "Sheet4"))

# 方式2：按工作表索引批量删除，示例删除第2、3、5个工作表
# removeWorksheet(wb, sheet = c(2,3,5))

# 保存修改后的工作簿，overwrite=TRUE表示覆盖同名文件
saveWorkbook(wb, "修改后的文件.xlsx", overwrite = TRUE)

当需要保留的工作表数量远少于要删除的数量时，可通过求差集的方式批量删除不需要的表，只需指定要保留的表即可：

library(openxlsx)
wb <- loadWorkbook("你的Excel文件路径.xlsx")

# 获取工作簿内所有工作表名称
all_sheets <- sheets(wb)
# 指定你需要保留的工作表名称
keep_sheets <- c("首页", "汇总数据", "交易明细")

# 删除所有不在保留列表中的工作表
removeWorksheet(wb, sheet = setdiff(all_sheets, keep_sheets))

saveWorkbook(wb, "修改后的文件.xlsx", overwrite = TRUE)

• 操作前建议备份原文件，避免误删数据
• 传入的工作表名称需要和实际名称完全匹配（区分大小写、特殊字符）
• 不需要覆盖原有输出文件时，可修改saveWorkbook()的输出文件名，删除overwrite = TRUE参数

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