read.xls - 读取可变长度的工作表列表及其名称

Question

鉴于几张.xls文件的页数不同，我正在使用R包中的read.xls将它们读入gdata。我有两个相关的问题（解决第二个问题应解决第一个问题）：

1. 事先不知道每个.xls文件将有多少张，实际上这个值会因文件而异。
2. 我需要捕获工作表的名称，这是相关数据

现在，要解决（1），我正在使用try()并迭代工作表编号，直到我遇到错误。

如何获取工作表名称列表以便我可以迭代它们？

Answer 1

请参阅gdata中的sheetCount和sheetNames函数（在同一帮助页面上）。如果xls <- "a.xls"，然后将电子表格的所有表格读入列表，每个组件一张，就是这样：

sapply(sheetNames(xls), read.xls, xls = xls, simplify = FALSE)

请注意，将使用工作表的名称命名组件。根据内容，删除simplify = FALSE可能是有意义的。

Answer 2

对于这样的任务，我使用库XLConnect。通过它的功能，您可以在向量中获取每个工作表的名称，然后确定该向量的长度。

#Read your workbook 
wb<-loadWorkbook("Your_workbook.xls")

#Save each sheet's name as a vector
lp<-getSheets(wb)

#Now read each sheet as separate list element
dat<-lapply(seq_along(lp),function(i) readWorksheet(wb,sheet=lp[i]))

UPDATE

正如@Martin Studer所建议的，XLConnect函数已经被矢量化，因此不需要使用lapply()，而只需提供工作表名称的向量或在getSheets()中使用函数readWorksheet()。

dat <- readWorksheet(wb, sheet = getSheets(wb))