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

Question

我有大约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)
         }