R语言读取excel文件并且保存成csv文件

library(openxlsx)

#设置工作空间

setwd('F:/')

#获取excel中工作簿的名称

sheetnames<-getSheetNames('test.xlsx')

#把每个工作薄的数据按照'工作薄名称.csv'的名称存储

for(iin(1:length(sheetnames))){

write.table(read.xlsx('F:/test.xlsx',sheet=i),paste(sheetnames[i],'.csv',sep=''),row.names=F,sep=',')

}