R产生xls空白文件——懒人专用

library(XLConnect)

path <- "D:/calu"

name <- c(1,2,3,4,5,6,7,8,9,10,11,12)

filename <- paste0(path,"/",name,".xls")

for (i in 1:12) {
  
  x <- loadWorkbook(filename[i],create=T)
  
  createSheet(x,name = "Sheet")
  
  saveWorkbook(x)
}