如何在R中批量导入Access数据库多表并保留原表名？

基于你已有的代码，以下是实现批量导入171个表并保留原表名的具体代码：

## 提取筛选后的目标表名
target_tbl_names <- tbls$TABLE_NAME

## 批量导入表到列表（推荐：用列表统一管理，避免全局环境混乱）
all_tables <- lapply(target_tbl_names, function(tbl) {
  sqlFetch(ch, tbl)
})
# 给列表元素命名为原表名
names(all_tables) <- target_tbl_names

## （可选）如果要将所有表加载到全局环境
list2env(all_tables, envir = .GlobalEnv)

代码说明 #

• target_tbl_names <- tbls$TABLE_NAME：从筛选后的tbls数据框中提取所有目标表的名称，sqlTables()返回的结果中，表名字段为TABLE_NAME。
• lapply(...)：遍历每个表名，调用sqlFetch()导入数据，结果自动存入列表。
• names(all_tables) <- target_tbl_names：给列表中的每个元素设置原表名，后续可以通过all_tables$表名直接访问对应的数据框。
• list2env(...)：将列表中的每个数据框单独加载到R的全局环境，这样你可以直接用原表名（如TABLE1）调用数据，适合习惯直接操作单个数据框的场景。

进阶提示 #

如果要跟踪大型表的导入进度，可以在循环内加入进度打印：

all_tables <- lapply(target_tbl_names, function(tbl) {
  cat("正在导入：", tbl, "\n")
  sqlFetch(ch, tbl)
})
names(all_tables) <- target_tbl_names

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