如何在R中读取Excel指定工作表并选取x1:x4列避免报错

原代码默认遍历读取Excel的全部工作表，无目标列的工作表进入select步骤就会触发报错，可按需求选择以下两种方案解决：

方案1：提前指定需要导入的工作表（最高效，推荐） #

直接限定要读取的工作表范围，完全跳过不需要的工作表，从根源避免报错：

library(readxl)
library(janitor)
library(dplyr)

file_path <- "C:/Users/xxxx/Documents/file.xlsx"

# 两种指定方式二选一即可
# 方式A：按工作表名称指定
target_sheets <- c("销售表", "库存表", "人力表", "绩效表")
# 方式B：按工作表位置指定，比如取第2到第5个工作表
# target_sheets <- excel_sheets(file_path)[2:5]

df.list <- lapply(target_sheets, function(y) {
  read_excel(file_path, sheet = y, skip = 5) %>% 
    clean_names() %>% 
    # 可选：用any_of包裹列名，缺列时仅警告不中断运行
    select(any_of(c("x1", "x2", "x3", "x4")))
})
names(df.list) <- target_sheets

list2env(df.list, .GlobalEnv)

修改说明：

• 去掉冗余的外层lapply，单个Excel文件无需遍历文件列表
• 新增目标工作表限定逻辑，仅读取需要的内容，运行效率更高
• any_of()参数适配偶发缺列的批量处理场景，容错性更强

方案2：自动筛选含目标列的工作表（无需提前知晓表名） #

如果不清楚哪些工作表包含x1~x4列，可先快速读取表头做校验，仅处理符合要求的工作表：

library(readxl)
library(janitor)
library(dplyr)

file_path <- "C:/Users/xxxx/Documents/file.xlsx"
all_sheets <- excel_sheets(file_path)
target_cols <- c("x1", "x2", "x3", "x4")

# 筛选含全部目标列的工作表
target_sheets <- Filter(function(sheet_name) {
  # 仅读取表头判断，不需要加载全表，运行效率高
  header <- read_excel(file_path, sheet = sheet_name, skip = 5, n_max = 1) %>% clean_names()
  all(target_cols %in% colnames(header))
}, all_sheets)

# 批量读取处理符合要求的工作表
df.list <- lapply(target_sheets, function(y) {
  read_excel(file_path, sheet = y, skip = 5) %>% 
    clean_names() %>% 
    select(all_of(target_cols))
})
names(df.list) <- target_sheets

list2env(df.list, .GlobalEnv)

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