如何在R语言中导出5.0/95格式的xls文件？

AI 小北

2026-10-8

解决方案

你使用的xlsx包默认输出的是Excel 2003（BIFF8）格式的xls文件，本身不支持导出更早期的Excel 5.0/95（BIFF5）格式，可通过以下方案实现需求：

方案1：使用WriteXLS包（跨平台通用）

该包支持自定义指定导出的Excel版本，是通用度最高的解决方案：

安装并加载依赖包

install.packages("WriteXLS")
library(WriteXLS)

导出为Excel 5.0/95格式

# 构造测试数据
Data = data.frame(col1=LETTERS[1:10], col2=c(1:10))
# 指定ExcelVersion参数为"5.0"即可输出对应格式
WriteXLS(Data, ExcelFileName = "Data.xls", ExcelVersion = "5.0", row.names = FALSE)

方案2：Windows环境下调用本地Excel导出（需提前安装微软Excel）

通过RDCOMClient直接调用Excel官方接口导出，格式兼容性最好：

安装并加载依赖包

install.packages("RDCOMClient")
library(RDCOMClient)

导出代码

Data = data.frame(col1=LETTERS[1:10], col2=c(1:10))
# 启动Excel后台进程
excelApp <- COMCreate("Excel.Application")
excelApp[["Visible"]] <- FALSE
# 新建工作簿写入数据
wb <- excelApp[["Workbooks"]]$Add()
sheet <- wb[["Sheets"]]$Item(1)
# 写入表头
for (i in 1:ncol(Data)) {
  sheet$Cells(1, i)[["Value"]] <- colnames(Data)[i]
}
# 写入表体内容
for (j in 1:nrow(Data)) {
  for (i in 1:ncol(Data)) {
    sheet$Cells(j+1, i)[["Value"]] <- Data[j,i]
  }
}
# 另存为Excel 5.0/95格式，对应官方格式编码为39
wb$SaveAs("Data.xls", FileFormat = 39)
# 释放资源
wb$Close(SaveChanges = FALSE)
excelApp$Quit()
rm(excelApp)
gc()