R語言讀取excel文件並且保存成csv文件

 

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