[R]_R里如何将多个Excel文件合并为一个Excel文件多个Sheet

        最近遇到一个问题，就是从网站上下载了多个Excel文件，需要把它合并成一个Excle多个Sheet，在百度上搜VBA的代码，结果用不了，于是自己写了R的程序，很简单就实现了这个功能。

        思路如下：先把文件夹里的Excel文件读进一个list，再把整个list写成一个新的Excel文件。

library(rio)

path <- "E:/file"    #文件夹名  
fileNames <- dir(path)  #读取文件夹下所有文件名
filePath <- sapply(fileNames, function(x){ 
  paste(path,x,sep='/')})   #合并文件路径和文件名
data <- lapply(filePath, function(x){
  import(x)}) #读取所有excel文件

export(data,"E:/file/file.xlsx")

        这样，E盘file文件夹下所有xlsx文件就被写成了file.xlsx里的多个Sheet。