openxlsx的loadWorkbook/saveWorkbook报错且损坏工作表格式如何解决

1. 加载时的sprintf警告：openxlsx对Excel内部超链接的解析存在bug，你文件里导航面板的工作表跳转超链接被错误识别为外部链接，包生成xml关系节点时给sprintf传入了多余的未使用参数，触发该警告，同时该解析错误会导致部分格式元数据丢失。
2. 保存时的NAs introduced by coercion警告及格式混乱：原文件的列宽、行高、行列可见性、单元格格式等配置中存在openxlsx不支持的Excel特性（比如分组折叠的隐藏配置、动态列宽、多条件格式、自定义样式继承等），加载时这些配置无法被正确解析为有效值，直接被赋值为NA；保存时程序尝试将NA转换为数值类型设置列宽触发强制转换警告，同时错误的NA值会覆盖原有配置，导致行列隐藏状态颠倒、格式丢失。

• 优先升级openxlsx到最新正式版，4.2.5及以上版本已修复大部分内部超链接解析的bug，升级命令：

install.packages("openxlsx", repos = "https://cloud.r-project.org/")

• 如果不需要修改原有格式仅需读写数据，直接替换使用openxlsx2包，该包为openxlsx的重构版本，对复杂xlsx的格式兼容性大幅提升，读写过程不会破坏原有配置，示例代码：

# 安装openxlsx2
install.packages("openxlsx2")
# 加载工作簿
wb <- wb_load(ReportFilePath)
# 此处可插入你需要的数据处理、写入操作
# 保存工作簿
wb_save(wb, ReportFilePath, overwrite = TRUE)

• 若必须使用旧版openxlsx，可在保存前手动兜底修复列宽配置，避免NA导致的格式错乱，示例代码：

# 遍历所有工作表修复列宽
for (sheet_name in names(ExcelFile)) {
  # 读取当前工作表的列宽配置
  current_col_widths <- ExcelFile[[sheet_name]]$colWidths
  # 将NA值替换为Excel默认列宽8.43，也可根据原文件实际情况调整
  current_col_widths[is.na(current_col_widths)] <- 8.43
  # 重新设置列宽
  openxlsx::setColWidths(ExcelFile, sheet = sheet_name, cols = seq_along(current_col_widths), widths = current_col_widths)
  # 可在此处补充行列可见性的自定义设置，匹配原文件的隐藏配置
}
# 修复完成后再保存
saveWorkbook(ExcelFile, ReportFilePath, overwrite = TRUE)

• 临时兼容方案：如果仅需要修改单个工作表的数据，不要全量加载保存整个工作簿，可使用read.xlsx读取目标工作表数据，修改完成后用write.xlsx的append = TRUE参数仅追加写入修改的工作表，避免覆盖其他工作表的原有配置。

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