使用R的excel.link包如何关联多Excel实例下的指定工作簿

问题根因 #

excel.link 包默认仅绑定系统运行对象表中第一个注册的 Excel COM 实例，多开 Excel 实例时，其他实例不会被默认检索，因此会找不到非首个实例下的目标工作簿。

解决方案1：R侧遍历所有Excel实例匹配目标工作簿（无需修改现有VBA代码） #

适合无同名工作簿的场景，直接在R侧遍历所有运行中的Excel实例，逐个检查是否存在目标工作簿，匹配到后绑定对应实例即可正常操作。

代码实现 #

# 加载依赖包
library(excel.link)
library(RDCOMClient)
library(foreign)

# R侧声明Windows API用于获取Excel实例进程ID
GetWindowThreadProcessId <- function(hwnd) {
  pid <- integer(1)
  if (Sys.getenv("R_ARCH") == "/x64") {
    res <- .C("GetWindowThreadProcessId", as.long(hwnd), as.integer(pid), PACKAGE = "user32")
  } else {
    res <- .C("GetWindowThreadProcessId", as.integer(hwnd), as.integer(pid), PACKAGE = "user32")
  }
  return(res[[2]])
}

# 自定义函数获取所有运行中的Excel实例
get_all_excel_instances <- function() {
  # 初始化运行对象表
  rot <- COMCreate("System.Runtime.InteropServices.Marshal")$GetRunningObjectTable(0)
  moniker_enum <- rot$EnumRunning()
  moniker <- COMArray("IMoniker", 1)
  instances <- list()
  
  while (moniker_enum$Next(1, moniker, NULL) == 0) {
    display_name <- moniker[[1]]$GetDisplayName(NULL, NULL)
    # 筛选Excel相关的运行对象
    if (grepl("Excel.Workbook", display_name, ignore.case = TRUE)) {
      tryCatch({
        xl_inst <- moniker[[1]]$BindToObject(NULL, NULL, IID("{000208D5-0000-0000-C000-000000000046}"))
        instances <- c(instances, list(xl_inst))
      }, error = function(e) {})
    }
  }
  return(instances)
}

# 目标工作簿名称，可从命令行参数获取
args <- commandArgs(trailingOnly = TRUE)
target_wb_name <- args[1]

# 遍历实例匹配目标工作簿
all_xl_instances <- get_all_excel_instances()
target_instance <- NULL
target_workbook <- NULL

for (xl in all_xl_instances) {
  for (wb in xl$Workbooks) {
    if (wb$Name == target_wb_name) {
      target_instance <- xl
      target_workbook <- wb
      break
    }
  }
  if (!is.null(target_instance)) break
}

if (is.null(target_workbook)) {
  stop(paste0("未找到目标工作簿：", target_wb_name))
}

# 将匹配到的实例绑定为excel.link的当前操作对象
xl.connect(obj = target_instance)
# 后续可正常使用excel.link的所有函数，例如激活工作簿
xl.workbook.activate(target_wb_name)

# 操作完成后释放COM对象，避免Excel进程残留
rm(target_workbook, target_instance, all_xl_instances)
gc()

解决方案2：VBA传递当前实例PID，精准匹配（适合多开同名工作簿场景） #

如果存在多个同名工作簿，为避免匹配错误，可以改造VBA代码，将当前调用R的Excel实例的进程ID作为参数传给R，R侧直接按PID匹配对应实例。

1. 修改后的VBA代码 #

#If VBA7 Then
Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hWnd As LongPtr, ByRef lpdwProcessId As Long) As Long
#Else
Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hWnd As Long, ByRef lpdwProcessId As Long) As Long
#End If

Sub RunR()
    Dim shell As Object
    Set shell = VBA.CreateObject("WScript.Shell")
    Dim waitUntilComplete As Boolean: waitUntilComplete = True
    Dim errorCode As Long
    Dim current_wb_name As String
    Dim current_xl_pid As Long
    
    ' 获取当前工作簿名称
    current_wb_name = ThisWorkbook.Name
    ' 获取当前Excel实例的进程ID
    GetWindowThreadProcessId Application.hWnd, current_xl_pid
    
    ' 调用R时新增PID作为传参
    errorCode = shell.Run("""C:\Program Files\R\R-4.0.5\bin\R.exe""" & " CMD BATCH --vanilla " _
                & """--args " & current_wb_name & " " & CStr(current_xl_pid) & """ " & """file path for R script""", vbHide, waitUntilComplete)
    
End Sub

2. 对应R侧匹配逻辑 #

# 接收VBA传入的参数
args <- commandArgs(trailingOnly = TRUE)
target_wb_name <- args[1]
target_pid <- as.integer(args[2])

# 复用方案1中的get_all_excel_instances、GetWindowThreadProcessId函数
all_xl_instances <- get_all_excel_instances()
target_instance <- NULL
target_workbook <- NULL

for (xl in all_xl_instances) {
  current_pid <- GetWindowThreadProcessId(xl$Hwnd)
  if (current_pid == target_pid) {
    target_instance <- xl
    for (wb in xl$Workbooks) {
      if (wb$Name == target_wb_name) {
        target_workbook <- wb
        break
      }
    }
    break
  }
}

# 后续绑定、操作、释放逻辑和方案1一致
xl.connect(obj = target_instance)
xl.workbook.activate(target_wb_name)

rm(target_workbook, target_instance, all_xl_instances)
gc()

注意事项 #

• 操作完成后必须释放COM对象并执行垃圾回收，避免残留无界面的Excel进程占用系统资源。
• 若R运行时提示找不到对应IID，可检查RDCOMClient包是否安装正确，对应Excel版本的COM组件是否正常注册。

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