一、批量文件基础导入
（一）、文件分布
(二)、命令实现
# 批量读取文件夹内电子券文件
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)
}
