setwd("C:\\Users\\Administrator\\Desktop")
library(xlsx)
x1<-read.xlsx("投入产出数据R.xlsx",1,encoding="UTF-8")
x2<-read.xlsx("投入产出数据R.xlsx",2,encoding="UTF-8")
x3<-read.xlsx("投入产出数据R.xlsx",3,encoding="UTF-8")
for (i in 1:3){
x[i]=as.data.frame(x[i])
a=c("dq",paste("y",1:31,sep=""))
names(x[i])=a
x[i]=transform(x[i],sum=y1+y2+y3)
}
##将数据保存到一个xlsx文件的多个工作表
library("XLConnect")
xls=loadWorkbook("test.xlsx",create=TRUE)##创建了一个test.xlsx文件
createSheet(xls,name=paste("she",1:3,sep=""))###创建了一个工作表
for (i in 1:3){
writeWorksheet(xls,x[i],sheet="she[i]")}
saveWorkbook(xls)