R 将 Excel 文件合并为一个包含多个工作表的 Excel 文件，其中工作表来自不同的文件，但共享相同的结构

问：

我有 4 个 Excel 文件（a、b、c、d），每个文件包含 6 个 Excel 工作表。 所有文件都具有相同的结构（即列名、工作表名）。 我想要 1 个最终的 Excel 工作表，其中包含来自 4 个文件的汇总数据，但分为不同的工作表。

我试图用一个循环来聚合它

for (excel_file in excel_files) 
{wb <- loadWorkbook(file.path(folder_path, excel_file))
sheet_name <- getSheetNames(excel_file)
for (sheet_name in getSheetNames(excel_file)) {
# Read data from the current sheet
sheet_data <- read.xlsx(excel_file, sheet = sheet_name)
addWorksheet(output_wb, sheet_name)
writeData(output_wb, sheet = sheet_name, x = sheet_data)} 
}