循环程序，请问这个循环怎么改

setwd("C:\\Users\\Administrator\\Desktop")##读取3个工作表
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循环统一处理，但是没有指定数据框，所以names()
不能运行，请问应该怎么处理
for (i in 1:3){
x=as.data.frame(x)
a=c("dq",paste("y",1:31,sep=""))
names(x)=a
x=transform(x,sum=y1+y2+y3)
}
##这里如何将3个数据框统一保存到一个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,sheet="she")}##这个循环有错，但是不知道怎么改
saveWorkbook(xls)

??writeworksheet()没有找到命令啊，，

小飞碟 发表于 2015-6-29 10:41
??writeworksheet()没有找到命令啊，，

有的，我不用循环的话可以一个一个导出数据，现在就是想一步到位。