I have had the problem like this:
wb1<-creatWorkbook()
addWorksheet(wb1,"1")
saveWorkbook(wb1,file= "o