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=',')
}