library(openxlsx)

#設(shè)置工作空間

setwd('F:/')

#獲取excel中工作簿的名稱

sheetnames<-getSheetNames('test.xlsx')

#把每個工作薄的數(shù)據(jù)按照'工作薄名稱.csv'的名稱存儲

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

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

}