如何使用 R 将目录中的所有 xlsx 文件组合成单个 xlsx 文件？答案

【问题标题】：How to combine all xlsx files in a directory into a single xlsx file using R?如何使用 R 将目录中的所有 xlsx 文件组合成单个 xlsx 文件？
【发布时间】：2021-08-13 14:18:55
【问题描述】：

我有一个包含三个 xlsx 文件的目录：

my_path <- c('Path/To/My/Stuff')

每个文件的名称如下：my-file_1.xlsx、my-file_2.xlsx、my-file_3.xlsx

我想将这三个文件合并到一个新的 xlsx 工作簿中，其中每个工作表都包含其中一个独立文件的所有数据，并且还以独立文件命名（但只有 file_N 结尾部分。

例如，主工作簿将被称为my-complete-workbook.xlsx，它将具有三个选项卡：file_1、file_2、file_3。

在 R 中实现这一目标的最佳方法是什么，最好使用 openxlsx 库？

【问题讨论】：

标签： r

【解决方案1】：

你可以试试这个代码 -

library(openxlsx)

# Get list of files with .xlsx extension in current directory
filenames <- list.files(my_path, pattern = '\\.xlsx$', full.names = TRUE)

# Read all files
list_data <- lapply(filenames, read.xlsx)

# Assign correct names to list
names(list_data) <- tools::file_path_sans_ext(basename(filenames))

# Write sheets
write.xlsx(list_data, 'file.xlsx')

【讨论】：