1

我有多个包含数据的 excel 文件。我想将每个 excel 文件中的数据拆分为该特定 excel 文件中的多个工作表。我已经设法使用以下代码做到这一点：

library(Openxlsx)

data<- read.xlsx(file.choose())

splitdata <- split(data, data$Assigned)
splitdata 

workbook <- createWorkbook()

Map(function(data,name){

  addWorksheet(workbook, name)

  writeDataTable(workbook, name, data)

},splitdata, names(splitdata))

saveWorkbook(workbook, file = "WorkbookWithMultipleSheets.xlsx", overwrite = TRUE)

但是，我有 50 多个 excel 文件，我需要使用上面的代码创建多个工作表。有什么方法可以创建一个循环，这样我就不必为我拥有的每个 excel 文件编写这些数据？

任何帮助表示赞赏！谢谢！

4

0 回答 0