用R语言批量导入文件夹下的文件

文件名& lt-list . files(" D:\ \ Work \ \ 190304 \ \电子凭证")

路径？& lt-c("D:\\ Work \\190304\\电子凭证\\ ")

for (i in 1:length(文件名)){

？名称& lt-gsub("。csv "，""，文件名[i])

？分配(名称，

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

？header = TRUE，stringsAsFactors = FALSE))

}

bd _ mob0 & lt- data.frame()

？BD _ mob 1 & lt；- data.frame()

？for (i in 1:length(文件名)){

excel _ path & lt- paste0(path1，file_names[i])？

工作表名称& lt- excel_sheets(excel_path)[6]？

bd _ mob0 & lt- cbind(read_excel(excel_path，sheet = sheet_name，skip =3)，

？账期= substr (file _ names [I]，18，25)) #添加账期。

BD _ mob 1 & lt；- rbind(bd_mob1，bd_mob0)

？}