逐列拆分数据框并将其导出到xlsx文件

Question

我们按列分割数据框以将其导出到excel文件。     e.g

userid <- rep(1:2,times=4)
data1 <- replicate(8 , paste( sample(letters , 3 ) , collapse = "" ) )
data2 <- sample(10,8)
df <- data.frame( userid , data1 , data2 )
spt3 <- split( df , f = df$userid )

#  Split on userid
out <- split( df , f = df$userid )
#$`1`
#  userid data1 data2
#1      1   gjn     3
#3      1   yqp     1
#5      1   rjs     6
#7      1   jtw     5

#$`2`
#  userid data1 data2
#2      2   xfv     4
#4      2   bfe    10
#6      2   mrx     2
#8      2   fqd     9

现在我们要将其导出到不同的excel（.xlsx）文件

lapply(names(spt3), function(x) {write.table(spt3[[x]], file = paste("solid", x, sep = ""))})

这适用于表输出，但不适用于excel文件作为输出。我想为每个拆分输出使用不同的excel文件。 例如，spt3 [[1]]，excel文件作为输出，类似于spt3 [[2]]。

 Please note 
Thanks for suggestions. But I want (. Xlsx )file not  csv. E.g output should be like this in mentioned path  output1. Xlsx   output2. Xlsx  . Also diffeent excel files not different sheets of a single excel file .