library(openxlsx)
#設(shè)置工作空間
setwd('F:/')
#獲取excel中工作簿的名稱
sheetnames<-getSheetNames('test.xlsx')
#把每個(gè)工作薄的數(shù)據(jù)按照'工作薄名稱.csv'的名稱存儲(chǔ)
for(iin(1:length(sheetnames))){
write.table(read.xlsx('F:/test.xlsx',sheet=i),paste(sheetnames[i],'.csv',sep=''),row.names=F,sep=',')
}
