R语言批量导入指定规则Excel文件报错求助

问题分析 #

你遇到的zip file cannot be opened报错，大概率是文件路径处理不当导致——比如之前的代码通过list.dirs+map(dir)的方式，可能混入了无效路径（比如主文件夹本身），或者部分文件路径未正确生成完整绝对路径。以下是可靠的批量导入方案，同时满足你的三个需求。

完整解决方案代码 #

library(readxl)
library(tidyverse)

# 定义主文件夹路径
main_folder <- "folder1"

# 1. 递归筛选目标文件：含"aaa"、不含"old"的xlsx，直接获取完整路径
files <- list.files(
  path = main_folder,
  pattern = "^aaa.*\\.xlsx$",  # 确保文件名以aaa开头，以xlsx结尾
  full.names = TRUE,           # 返回完整文件路径
  recursive = TRUE             # 递归遍历所有子文件夹
) %>%
  filter(!grepl("old", basename(.)))  # 过滤掉含"old"的文件

# 2. 批量导入Excel，添加错误捕获避免单文件报错中断流程
data_list <- lapply(files, function(file_path) {
  tryCatch(
    read_excel(file_path),
    error = function(e) {
      message(sprintf("导入失败: %s，错误信息: %s", file_path, e$message))
      return(NULL)
    }
  )
})

# 过滤导入失败的空元素
data_list <- data_list[!sapply(data_list, is.null)]

# 给数据框命名：保留原文件名（去掉扩展名）
names(data_list) <- tools::file_path_sans_ext(basename(files)[!sapply(data_list, is.null)])

# 3. 将数据框导入全局环境，生成独立对象
list2env(data_list, envir = .GlobalEnv)

关键优化点 #

• 简化文件路径获取：用list.files(recursive=TRUE)直接递归搜索，避免先遍历子文件夹再找文件的繁琐流程，确保生成的路径都是有效的完整路径。
• 精准文件名匹配：正则表达式^aaa.*\\.xlsx$确保只匹配以aaa开头的Excel文件，避免误匹配其他含aaa的文件（若不需要开头限制，可去掉^）。
• 错误容错机制：tryCatch捕获导入错误，输出提示并跳过坏文件，不会导致整个批量任务中断。
• 自动生成独立数据框：list2env将列表中的每个数据框直接转为全局环境中的独立对象，文件名（去掉扩展名）就是数据框名称。

验证方法 #

运行代码后，可通过ls()查看全局环境中的数据框，或用head(aaa_b)查看具体数据框内容，确认导入结果符合预期。

内容的提问来源于stack exchange，提问作者stats_noob