XLConnect从多个excel文件中导入相同的选项卡，包括文件名

我有大约100个Excel标签文件。

我想要：

1. 从不同的文件导入相同的标签（标签在所有excel文件中都有相同的名称）
2. 添加一个文件名的列
3. 将所有导入的选项卡保存到1个表格（每行的文件名作为源标识符）

我是一个非常新的R，还没有很远。

谢谢，Veerle

Answer 1

以下情况如何：

require(XLConnect) require(plyr) files = c(...) sheet = "sheetname" ldply(files, function(file) { cbind(file = file, readWorksheetFromFile(file, sheet = sheet) }) 

Answer 2

我这样解决了它：

  require(XLConnect) ListFiles <- list.files(pattern="*.xls") ListFiles.short <- ListFiles[1:2] sheetname = "Volume" all.volume <- data.frame() j <- 0 for (i in ListFiles){ j<- j+1 print(j) print(i) #prints just to follow the progress of the loop wb <- loadWorkbook(i) wbsheet <- readWorksheet(wb, sheet=sheetname, startRow=2, header=TRUE, check.names=TRUE) wbsheet$filename <- i all.volume <- rbind(all.volume, wbsheet) }