在R中无法获取已打开Excel工作簿，如何实现保存并关闭？

问题根源 #

你用RDCOMClient::COMCreate("Excel.Application")会创建一个全新的Excel进程，而非连接到当前正在运行的Excel实例，所以即便已有Excel窗口打开，这个新实例的Workbooks$Count()也会返回0。

正确实现方式：连接到已运行的Excel实例 #

使用RDCOMClient::GetActiveObject()获取当前活跃的Excel进程，而非新建实例：

library(RDCOMClient)

# 尝试连接到已运行的Excel实例
tryCatch({
  xlApp <- RDCOMClient::GetActiveObject("Excel.Application")
  nBooks <- xlApp[["Workbooks"]]$Count()
  
  # 从后往前关闭，避免索引偏移导致遗漏
  for (i in seq(nBooks, 1, by = -1)) {
    xlApp[["Workbooks"]]$Item(i)$Close(SaveChanges = TRUE)
  }
  
  # 可选：关闭Excel应用程序
  xlApp$Quit()
}, error = function(e) {
  message("没有检测到正在运行的Excel进程：", e$message)
})

关键说明 #

• 用tryCatch处理无Excel进程运行的情况，避免报错。
• 循环从后往前遍历索引：如果从前往后关闭，关闭第一个工作簿后，后续工作簿的索引会偏移，导致遗漏或报错。

替代方案：用VBScript批量保存关闭 #

如果RDCOMClient仍有兼容性问题，可通过R调用VBScript实现，VBScript对Excel实例的支持更稳定：

1. 创建VBS脚本文件（比如命名为SaveCloseExcel.vbs）：

On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number = 0 Then
  For Each wb In xlApp.Workbooks
    wb.Close SaveChanges := True
  Next
  xlApp.Quit
End If
Set xlApp = Nothing

2. 在R中调用该脚本：

system('cscript //nologo "SaveCloseExcel.vbs"')

注意事项 #

• 以上方法会自动保存所有未保存的工作簿，若需选择性保存，可额外判断工作簿的Saved属性。
• taskkill /F /IM Excel.exe属于强制终止进程，会丢失未保存内容，仅建议在紧急场景使用。

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