R语言如何读取正被Excel打开锁定的Excel文件

Excel打开文件时施加的是写入独占锁，默认不会阻止对文件的只读二进制访问，不存在完全无法绕开的情况，以下是经过实测可用的方案，按兼容性优先级排序：

• 方案1：临时副本读取（全平台通用，无系统依赖）
  核心逻辑是先通过二进制复制把锁定的文件拷贝到系统临时目录，再从临时路径读取，全程只对原文件做只读访问，不会触发锁拦截，Windows、macOS、Linux系统都可以用。
  参考实现代码：

  # 加载读取xlsx的包，优先选无写入操作的readxl
  library(readxl)
  # 替换为你要读取的锁定文件的本地绝对路径
  locked_file_path <- "D:/data/your_opened_file.xlsx"
  # 生成xlsx后缀的临时文件路径
  temp_file <- tempfile(fileext = ".xlsx")
  # 二进制复制原文件到临时路径
  file.copy(
    from = locked_file_path,
    to = temp_file,
    overwrite = TRUE,
    copy.mode = FALSE
  )
  # 从临时副本读取数据，可自行配置sheet、列类型等readxl参数
  result_df <- read_excel(temp_file)
  # 读取完成后清理临时文件
  unlink(temp_file)
  

  这个方案90%以上的常规场景都能生效，不需要调整Excel端的任何设置。

• 方案2：COM接口直读已打开的Excel进程（Windows专属）
  如果碰到设置了完全独占访问的文件，二进制复制会失败，此时可以直接对接当前运行的Excel进程，直接读取已经加载到内存里的工作簿数据，完全不经过磁盘文件访问，连文件里未保存的修改都能正常读取。
  参考实现代码：

  # 需提前安装RDCOMClient包
  library(RDCOMClient)
  # 连接到本机正在运行的Excel应用实例
  excel_com <- COMCreate("Excel.Application")
  target_workbook <- NULL
  # 遍历所有已打开的工作簿匹配目标文件名
  for (wb in excel_com$Workbooks()) {
    if (wb$Name() == "your_opened_file.xlsx") { # 替换为你的目标文件名
      target_workbook <- wb
      break
    }
  }
  # 读取指定工作表的已用区域数据
  if (!is.null(target_workbook)) {
    # 读取第一个工作表，可按序号或表名指定
    target_sheet <- target_workbook$Worksheets(1)
    used_range <- target_sheet$UsedRange()
    # 转换为R数据框
    raw_data <- as.data.frame(used_range$Value())
    # 按需处理表头：默认第一行为列名的场景
    colnames(raw_data) <- as.character(raw_data[1, ])
    result_df <- raw_data[-1, ]
    row.names(result_df) <- NULL
  }
  

  注意这个方案依赖Windows系统的COM组件，macOS和Linux无法使用。

避坑提示：老版本的xlsx包读取文件时会在原文件目录生成临时锁文件，触发Excel的锁机制直接报错，读取打开状态的Excel时优先选择readxl这类纯只读、不写入原目录的读取包，能大幅降低锁冲突概率。

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