使用openxlsx生成Excel时，如何实现单元格文本自动换行？

我正在编写脚本，使用openxlsx生成Excel输出，但无法实现单元格内文本换行。我的输出中有一个“Report Notes”工作表，用于存放分析相关的免责声明文本（存储在变量中），因文本过长无法放在分析工作表的页眉或页脚，故单独设表。但文本无法在单元格内换行，导致可读性问题，尝试多种方法均未成功。

示例代码 #

library(tidyverse)
library(openxlsx)
library(openxlsx2)

reportnotes<- "THIS IS AN EXAMPLE TEXT STRING THAT I WANT TO WRITE TO AN EXCEL DOCUMENT. HOPEFULLY IT'S LONG ENOUGH TO MAKE MY POINT."

output<-createWorkbook()

addWorksheet(output, "Report Notes")

writeData(output, "Report Notes", reportnotes,
          startCol = 1,
          startRow = 1,
          colNames = TRUE,
          rowNames = FALSE,
          keepNA = TRUE)

pageSetup(output, "Report Notes", orientation = "landscape", scale = 100, fitToWidth = TRUE)

尝试过的解决方案 #

• 方案1：使用str_wrap()、setColWidths()和setRowHeights()设置换行，仅调整了列宽和行高，文本未换行：

reportnotes<-reportnotes%>%
   str_wrap(width = 80, indent = 0, whitespace_only = FALSE) 

setColWidths(output, "Report Notes", cols = 1, widths=70)
setRowHeights(output, "Report Notes", rows = 1, heights = 150)

• 方案2：定义单元格样式，出现错误：

wb_add_cell_style(output, sheet="Report Notes", dims = "A1", apply_border = TRUE, wrap_text=TRUE)

错误信息：Error: wb must be class wbWorkbook or R6

环境说明：RStudio 2023.06.1+524 "Mountain Hydrangea"，R版本4.3.0，因组织政策限制无法更新版本。

解决方法 #

报错原因是混用了openxlsx和openxlsx2的函数：wb_add_cell_style是openxlsx2的专属函数，但你用openxlsx的createWorkbook创建的工作簿不兼容该函数。用openxlsx原生方法即可实现自动换行，步骤如下：

1. 创建带自动换行属性的单元格样式

wrap_style <- createStyle(wrapText = TRUE)

2. 写入数据时应用样式（推荐）
   修改writeData调用，将colNames设为FALSE（你的reportnotes是单个字符串，不需要表头），同时指定样式：

writeData(output, "Report Notes", reportnotes,
          startCol = 1,
          startRow = 1,
          colNames = FALSE,
          rowNames = FALSE,
          keepNA = TRUE,
          style = wrap_style)

3. 配合列宽行高设置
   加上之前的列宽行高调整，确保单元格有足够空间显示换行后的文本：

setColWidths(output, "Report Notes", cols = 1, widths = 70)
setRowHeights(output, "Report Notes", rows = 1, heights = 150)

补充说明：之前用str_wrap()的问题在于，它只是在R中给文本添加了换行符，但Excel需要开启单元格的自动换行属性才能识别这些换行，所以必须配合样式设置才能生效。

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