如何用R语言快速将表格写入宏启用Excel(.xlsm)文件且避免损坏？

我之前也踩过同样的坑：openxlsx直接生成xlsm会损坏文件，XLConnect处理大数据量慢到离谱还经常内存不足。这里有两个亲测靠谱的方案，高效且不会损坏文件：

方法1：使用openxlsx2包（首推） #

openxlsx2是openxlsx的官方继任者，原生支持.xlsm格式，性能比XLConnect好太多，处理1万行数据基本秒级完成，完全不会有文件损坏的问题。

操作步骤： #

1. 安装并加载包：

install.packages("openxlsx2")
library(openxlsx2)

2. 循环写入你的数据：

for (i in 1:3) {
  # 创建一个符合xlsm规范的新工作簿
  wb <- wb_workbook$new()
  # 添加指定工作表并写入数据框
  wb$add_worksheet("Input_Sheet")
  wb$add_data("Input_Sheet", x = Input_Files[[i]])
  # 保存为目标xlsm文件，允许覆盖已有文件
  wb$save(Inputs[i], overwrite = TRUE)
}

这个方法的核心是它会严格按照xlsm的文件结构生成内容，而不是像旧版openxlsx那样生成xlsx后改扩展名，从根源避免了文件损坏问题。

方法2：用openxlsx配合xlsm模板（不换包的过渡方案） #

如果你不想切换到新包，可以用一个空白的xlsm模板作为基础，绕开直接生成损坏文件的问题：

1. 先准备一个空白的.xlsm文件（比如命名为template.xlsm），确保Excel能正常打开它；
2. 用以下代码循环写入数据：

library(openxlsx)

template_path <- "template.xlsm" # 你的空白模板文件路径

for (i in 1:3) {
  # 加载模板工作簿（自带xlsm的合法结构）
  wb <- loadWorkbook(template_path)
  # 写入数据到指定工作表（如果工作表不存在，先执行addWorksheet(wb, "Input_Sheet")）
  writeData(wb, sheet = "Input_Sheet", x = Input_Files[[i]])
  # 保存为目标xlsm文件
  saveWorkbook(wb, file = Inputs[i], overwrite = TRUE)
}

为什么之前的方法会失败？ #

• openxlsx的write.xlsx：它本质是生成.xlsx格式的文件，即使你手动把扩展名改成.xlsm，文件内部的结构还是xlsx，Excel会识别为格式不匹配的损坏文件；
• XLConnect：依赖Java虚拟机，处理大数据量时内存占用极高，循环中即使调用xlcFreeMemory也很难彻底释放Java堆内存，导致速度慢甚至内存溢出。

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