一、批量文件基礎(chǔ)導(dǎo)入
（一）、文件分布
(二)、命令實(shí)現(xiàn)
# 批量讀取文件夾內(nèi)電子券文件
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))
}
(三)、最終結(jié)果
二、 批量導(dǎo)入文件并備注、合并
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)
? }
