一、批量文件基础导入

（一）、文件分布

(二)、命令实现

# 批量读取文件夹内电子券文件

file_names<- list.files("D:\\工作\\190304\\电子券")

path      <- c("D:\\工作\\190304\\电子券\\")

for (i in 1:length(file_names)) {

  name<-gsub(".csv","",file_names[i])

  assign(name,

        read.csv(paste0(path,file_names[1]),

                  header = TRUE, stringsAsFactors = FALSE))

}

(三)、最终结果

二、 批量导入文件并备注、合并

bd_mob0 <- data.frame()

  bd_mob1 <- data.frame()

  for (i in 1:length(file_names)){

    excel_path <- paste0(path1,file_names[i]) 

    sheet_name <- excel_sheets(excel_path)[6] 

    bd_mob0 <- cbind(read_excel(excel_path,sheet = sheet_name, skip =3),

          账期 = substr(file_names[i],18,25)) # 加入账期

    bd_mob1 <- rbind(bd_mob1, bd_mob0)

  }