R语言使用xlsx包导出Excel时日期格式不符合预期的问题排查

我之前也碰到过一模一样的问题，明明设置了options(xlsx.date.format)但导出的日期还是变成了系统默认格式，后来才搞清楚——这个全局选项其实是用来控制xlsx包读取Excel日期时的解析规则，并不是用来设置导出时Excel单元格的显示格式，这就是它没生效的核心原因。

下面是具体的解决步骤，亲测有效：

1. 先确认数据的日期格式无异常 #

虽然你的str(Exp)显示Date列是标准Date类型，但可以先重新转换一次，避免潜在的格式隐患：

Exp$Date <- as.Date(Exp$Date, format = "yyyy-mm-dd")

2. 创建自定义的日期显示样式 #

使用xlsx包的createStyle函数，定义我们需要的日期显示格式：

library(xlsx)
# 创建样式，指定日期显示格式为yyyy-mm-dd
date_style <- createStyle(numFmt = "yyyy-mm-dd")

3. 导出时给日期列绑定样式 #

在write.xlsx中通过colStyle参数，把刚才创建的样式应用到对应的日期列（你的Date列是第2列）：

write.xlsx(Exp, 
           file = "Exp.xlsx", 
           sheetName = "Expfile",
           # 给第2列（Date列）应用自定义日期样式
           colStyle = list(2 = date_style))

这样导出后打开Excel，Date列就会固定显示为2023-02-10的格式，不会被系统区域设置自动转换成02.10.2023了。

备注：内容来源于stack exchange，提问作者Ray