有没有办法将可伸缩对象导出到 Excel？答案

【问题标题】：Is there a way to export a flextable object to Excel?有没有办法将可伸缩对象导出到 Excel？
【发布时间】：2023-01-24 14:50:35
【问题描述】：

我想尝试将 flextable 对象导出到 excel 电子表格，但找不到任何解决方案。根据此文档 (https://davidgohel.github.io/flextable/reference/index.html)，该包允许用户将可格式化对象导出为 pdf、docs 和 ppts。

一种解决方法是将其保存为其中一种格式，然后将其保存为 excel 电子表格，但我正在寻找一种不那么骇人听闻且可扩展到许多表的解决方案。

【问题讨论】：

我真的不明白 csv 是如何工作的……flextable 的大部分内容都是关于格式化的，而 CSV 文件根据定义没有任何格式。
我编辑了原始问题以指定 excel。
如何将其保存到 excel 电子表格？就像格式化的电子表格一样？还是粘贴到电子表格中的图片？ csv 文件只是一个纯文本文件；逗号分隔比任何特定于文件类型的约定更重要
我已经从您的问题中删除了 CSV 的其他提及。
作为格式化的电子表格。包“xlsx”允许 R 用户通过格式化将数据导出到 excel。问题是这对于 formattable 是否可行。

标签： r excel flextable

【解决方案1】：

更新（2023 年 1 月）：与此同时，塞巴斯蒂安出现了一个名为 YesSiR 的包，其中包含一个名为 exportxlsx() 的不错的功能

安装：

install.packages("remotes")
remotes::install_github("Sebastien-Le/YesSiR")
library(YesSiR) # to export a flextable into MS Excel: exportxlsx() function

有一个很好的例子：

## Not run: 
ft <- flextable::flextable(head(mtcars))
ft
# color some cells in blue
ft <- flextable::bg(ft, i=ft$body$dataset$disp>200, j=3, bg = "#7ed6df", part = "body")
# color a few cells in yellow
ft <- flextable::bg(ft, i=ft$body$dataset$vs==0, j=8, bg = "#FCEC20", part = "body")
# export your flextable as a .xlsx in the current working directory
exportxlsx(ft, path = "X:/temp_del/excel_file.xlsx")

也许这有帮助。

【讨论】：