R语言导出xls格式的时候遇到一个问题，导出的xls格式文件上传系统（比较老旧的系统）时候，系统报错“Unable to recognize OLE stream”。目前的解决方案是导出xlsx格式，然后再用Excel打开另存为xls格式。
所以有没有更好的方法能够直接在R里面导出xls格式。

write.xlsx(data2,paste(year,"年",month,"月/",year,"-",month,"-",day,"data(上传)1.xls",sep = ""),colNames=F)