Запись данных на отформатированные листы xlsx с использованием XLConnect

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')

Помогите?