在R中如何导出带密码保护的多工作表XLSX文件？

方案1：基于xlsx包循环写入（直接支持打开密码设置） #

该方案利用你已经使用过的xlsx包，通过循环追加写入的方式解决其不支持一次性导出多数据框到多工作表的问题，自带打开密码配置参数，无需额外工具。

• 前置要求：提前配置好Java环境，安装xlsx包

  install.packages("xlsx")
  library(xlsx)
  

• 操作步骤：
  1. 把需要导出的所有数据框整理为命名列表，列表名称对应工作表名称

  # 示例数据准备
  df1 <- data.frame(序号 = 1:5, 内容 = letters[1:5])
  df2 <- data.frame(序号 = 6:10, 内容 = letters[6:10])
  export_list <- list(工作表1 = df1, 工作表2 = df2)
  

  2. 先写入第一个工作表，再循环追加剩余工作表，统一设置打开密码

  # 写入第一个工作表
  write.xlsx(
    export_list[[1]],
    file = "加密导出文件.xlsx",
    sheetName = names(export_list)[1],
    password = "自定义打开密码",
    append = FALSE
  )
  # 循环追加后续所有工作表
  for (i in 2:length(export_list)) {
    write.xlsx(
      export_list[[i]],
      file = "加密导出文件.xlsx",
      sheetName = names(export_list)[i],
      password = "自定义打开密码",
      append = TRUE
    )
  }
  

方案2：基于openxlsx包+本地Office组件实现（无Java依赖） #

如果不想配置Java环境，可以先用无依赖的openxlsx批量生成多工作表文件，再调用本地Office程序设置打开密码，仅适合Windows环境使用。

• 第一步：用openxlsx生成无密码的多工作表XLSX文件

  install.packages("openxlsx")
  library(openxlsx)
  # 新建工作簿
  wb <- createWorkbook()
  export_list <- list(工作表1 = df1, 工作表2 = df2)
  # 批量写入所有工作表
  for (sheet_name in names(export_list)) {
    addWorksheet(wb, sheet_name)
    writeData(wb, sheet_name, export_list[[sheet_name]])
  }
  # 保存临时文件
  saveWorkbook(wb, "临时多工作表文件.xlsx", overwrite = TRUE)
  

• 第二步：调用RDCOMClient操作本地Excel设置打开密码

  install.packages("RDCOMClient")
  library(RDCOMClient)
  # 启动Excel进程
  excel_app <- COMCreate("Excel.Application")
  # 打开临时文件
  wb <- excel_app$Workbooks()$Open(normalizePath("临时多工作表文件.xlsx"))
  # 另存为带打开密码的文件
  wb$SaveAs(normalizePath("加密导出文件.xlsx"), Password = "自定义打开密码")
  # 关闭工作簿、退出Excel进程
  wb$Close()
  excel_app$Quit()
  

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