R语言openxlsx2包导出保存工作簿报错的原因及解决方法

错误含义 #

这个错误是openxlsx2处理临时工作目录时触发的数据框赋值不匹配问题，核心原因是无法找到有效目标工作表：要么加载的工作簿中指定的工作表（sheet=1）不存在，要么加载参数组合导致工作表解析异常，使得后续wb_add_data操作时，程序试图向空数据框写入内容，触发行数不匹配的报错。

解决步骤 #

• 确认目标工作表存在：检查"data.xlsx"中是否有索引为1的工作表，建议直接使用工作表名称代替索引（比如sheet = "Sheet1"，替换为实际表名），避免索引匹配错误。
• 简化加载参数：移除calc_chain = T参数，该参数用于加载Excel的计算链，在复杂文件中易引发解析异常，改用dat2 = wb_load("data.xlsx", data_only = F)加载文件。
• 验证文件完整性：如果上述操作仍报错，说明原"data.xlsx"可能存在损坏或格式兼容问题，尝试将原文件另存为普通xlsx格式（无宏、无特殊加密）后再加载。
• 测试最小流程：用以下代码验证基础功能是否正常，排除环境或包版本问题：

# 创建测试工作簿
wb <- wb_workbook() %>% wb_add_worksheet("Sheet1")
wb_save(wb, "test.xlsx")

# 加载并写入数据
dat2 <- wb_load("test.xlsx", data_only = F)
num <- c(600000, 12340)
dat2 <- dat2 %>% wb_add_data(sheet = "Sheet1", x = num, dims = "E17")
wb_save(dat2, file = 'QQQ.xlsx', overwrite = F)

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