Convert Excel File Sheets to CSV

Require gdata (utility to work with Excel files). This only is only required once:

install.packages("gdata")

Load the source excel file:

require(gdata)
excelFile <- file.choose() # Ask for Excel file
names = sheetNames(excelFile)
noOfSheets = length(names)
out <- paste(dirname(excelFile), as.POSIXct(Sys.time()), sep="/") # same directory as source file + timestamp to avoid override
dir.create(out)
for (i in 1:noOfSheets) {
  currentSheet <- read.xls(excelFile, sheet=i)
  write.csv2(currentSheet, file=paste(out, paste(names[i], "csv", sep="."), sep="/"), row.names = FALSE, fileEncoding = "WINDOWS-1252")
}