R 如何将多个data.frame写入一个xlsx的多个sheet里面

比如我要将下面两个data.frame写入一个xlsx中，只能通过后来添加。能不能一下子写进去？
aa<-data.frame(1:5,2:6)
ab<-data.frame(2:6,3:7)
write.xlsx(aa,"D:/aa.xlsx")
wb<-loadWorkbook("D:/aa.xlsx")
sheet  <- createSheet(wb, sheetName="2")
addDataFrame(ab,sheet)
saveWorkbook(wb,file="D:/aa.xlsx")

顺便问下，如何关掉R与excel文件的链接？我想删aa.xlsx，删不掉。

aa<-data.frame(1:5,2:6)
ab<-data.frame(2:6,3:7)

wb <- createWorkbook()

sheet1 <- createSheet(wb, "Sheet1")
addDataFrame(aa,sheet1)

sheet2 <- createSheet(wb, "Sheet2")
addDataFrame(ab,sheet2)

saveWorkbook(wb,file="D:/aa.xlsx")

可以顺利删除，谢谢大家

忘了申请奖励了