如何解决R语言xlsx包抛出的“invalid entry size”Java错误

问题分析 #

你遇到的java.util.zip.ZipException是因为xlsx包依赖的Java POI库对XLSX文件的Zip结构容错性较低，而Excel和readxl包（基于C语言的libxlsx库）对这类非标准Zip结构的兼容性更好。要提取单元格颜色，推荐以下几种可行方案：

方案1：使用openxlsx包替代（推荐） #

openxlsx不依赖Java，对有Zip结构小问题的XLSX文件兼容性更强，同时支持提取单元格样式（包括背景色、字体颜色）。

示例代码：

# 安装并加载包
install.packages("openxlsx")
library(openxlsx)

# 加载工作簿
xl_path <- "<path>/<to>/file.xlsx"
wb <- loadWorkbook(xl_path)

# 获取指定工作表的样式信息
ws <- getWorksheet(wb, sheet = 1)
styles <- getStyles(wb)

# 提取单元格背景色（以A1单元格为例）
cell_style_idx <- ws$cellStyles[1, 1] # 第1行第1列的样式索引
bg_color <- styles$fill[cell_style_idx]$fillColor

# 提取字体颜色
font_color <- styles$font[cell_style_idx]$color

方案2：修复XLSX文件的Zip结构 #

如果坚持使用xlsx包，可以先修复文件的Zip结构：

• 用Excel打开该文件，选择另存为，保存为新的XLSX文件，再用xlsx包加载新文件。
• 批量处理场景可通过R调用zip工具修复：

# 先解压原文件
unzip(xl_path, exdir = tempdir())
# 重新压缩为新的XLSX文件
zip(zipfile = "<path>/<to>/fixed_file.xlsx", files = list.files(tempdir(), full.names = TRUE))
# 加载修复后的文件
wb <- xlsx::loadWorkbook("<path>/<to>/fixed_file.xlsx")

方案3：更新依赖库（可选） #

尝试更新xlsx和rJava包，确保使用最新版本，可能修复部分兼容性问题：

update.packages(c("xlsx", "rJava"))

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