I'm just assuming you want it as all one data.frame() and that all the sheets contain the same data.
library(xlsReadWrite)
sheets <- c("Sheet 1","Sheet 2", "Sheet 3")
df <- data.frame()
for (x in 1:400)
df <- rbind(df, read.xls("filename.xls", sheet=sheets[x]))
}
If each sheet is it's own unique data.frame() you'll probably want to put them in a list. Otherwise you can use assign() if you want them as objects in the environment.
sheet_list <- list()
for(x in 1:400) {
sheet_list[[x]] <- read.xls("filename.xls", sheet=sheets[x])
}
Or, without a for loop:
sheet_list <- lapply(sheets, function(x) read.xls("filename.xls",sheets=x))
