使用XLConnect在格式化的xlsx工作表上写入数据

Question

我可以使用拆分然后使用下面按列值（DF $ Name）拆分数据框并将其弹出到单个CSV文件中。

DFNames<- split(DF, DF$Name)
DF= read.csv("~/Downloads/DataDownload_2012.csv")
for (name in levels(DF$Name)){
  tmp=subset(DF,Name==name)
  fn=paste('Expenses/',gsub(' ','',name),sep='', ".CSV")
  write.csv(tmp,fn,row.names=FALSE)
}

但是，我希望将它们弹出到预先格式化的excel文件中。我可以使用XLConnect和下面的方法将我的数据框弹出到excel文件中，但我不能根据列变量对多个文件执行此操作。

    DataFormatted<- loadWorkbook("Income.xlsx")
    xldf = readWorksheet(DataFormatted, sheet = getSheets(DataFormatted)[1])
    sheet_name <- "Data"
    renameSheet(wb, sheet = getSheets(wb)[1], newName = sheet_name)
    writeWorksheet(wb,xldf,sheet=getSheets(wb)[1],startRow=2,header=F)
    saveWorkbook(wb,'income_data.xlsx')

帮助？