如何在R中为多数据框列表的Excel文件设置密码保护？

错误原因分析 #

你遇到的错误是因为 xlsx::write.xlsx 无法直接处理数据框列表：当你传入列表时，它会尝试将所有元素合并为一个数据框，但你的列表中存在行数不同的数据框（比如一个有59977行，另一个有0行），导致合并失败。此外，xlsx 包的 password 参数仅用于保护工作表不被编辑，而非设置打开文件所需的密码。

推荐方案：使用 openxlsx 包 #

openxlsx 是一个更现代的R包，支持直接创建多工作表Excel文件，并设置打开文件的密码（AES加密，兼容Excel 2010及以上版本）。

步骤与代码 #

1. 安装并加载包：

# 若未安装则先执行
# install.packages("openxlsx")
library(openxlsx)

2. 创建工作簿并添加各数据框为命名工作表：

# 创建空工作簿
wb <- createWorkbook()

# 遍历列表，将每个数据框写入对应名称的工作表
for (sheet_name in names(P.attached_all)) {
  addWorksheet(wb, sheetName = sheet_name)
  writeData(wb, sheet = sheet_name, x = P.attached_all[[sheet_name]])
}

3. 设置打开文件的密码并保存：

# 设置密码（替换为你的密码）
protectWorkbook(wb, password = "1234_fghj", lockStructure = TRUE)

# 保存文件（覆盖已存在的同名文件）
saveWorkbook(wb, file = "protected_attached_data.xlsx", overwrite = TRUE)

备选方案：使用 XLConnect 包 #

如果你偏好使用已加载的 XLConnect，也可以实现相同需求：

library(XLConnect)

# 创建新工作簿
wb <- loadWorkbook("protected_attached_data_xl.xlsx", create = TRUE)

# 添加工作表并写入数据
for (sheet_name in names(P.attached_all)) {
  createSheet(wb, name = sheet_name)
  writeWorksheet(wb, data = P.attached_all[[sheet_name]], sheet = sheet_name)
}

# 设置打开密码
setPassword(wb, password = "1234_fghj")

# 保存工作簿
saveWorkbook(wb)

内容的提问来源于stack exchange，提问作者Yomi.blaze93