访问< checkErrorInfo>excel文件时在R中获取“80020009 Error in .COM(x，name，...)：”

fhity93d 于 2023-04-27 发布在其他

关注(0)|答案(1)|浏览(85)

我使用Openxlsx和RDCOMClient包自动化了从R访问VBA宏的过程。下面是代码：

功能：

OpenExcel_5param <- function(directory,filename, MacroName, param1, param2, 
param3,param4, param5)
{

 # Open a specific workbook in Excel:
   data <- paste(c(directory,'/',filename,'.xlsm'), collapse = '')
   xlApp <- COMCreate("Excel.Application")
   xlWbk <- xlApp$Workbooks()$Open(data)

 # this line of code might be necessary if you want to see your spreadsheet:
   xlApp[['Visible']] <- TRUE 
   xlApp$Run(MacroName,param1,param2, param3, param4, param5)

 # Close the workbook and quit the app:
   xlWbk$Close(FALSE)
   xlApp$Quit()

 # Release resources:
   rm(xlWbk, xlApp)
   gc()
}

访问此函数的代码：

OpenExcel_5param（Common_folder，VBA_CodeFileName，“ConsumptionValidation.MARM”，r_extracts，“1. UniqueUPC_Nielsen”，10000，original_files，“MARM”）
当我运行代码时，我得到以下错误：
80020009
.COM（x，name，...）中的错误：
当我第一次运行代码时，它工作正常。从第二次开始，它开始给我这个错误。同样的代码在不同的计算机上工作正常。在第三台计算机上，如果我保持Excel文件打开，它工作正常，但在我的计算机上根本不工作。我尝试了不同版本的R，但没有帮助。

r

来源：https://stackoverflow.com/questions/48560776/getting-checkerrorinfo-80020009-error-in-comx-name-in-r-while-acc

1条答案

按热度按时间

qeeaahzv1#

如果你的代码在一个R会话中只工作一次（也就是说，在同一个R会话中不会工作两次，但是如果你重新启动R，它会再次工作），你可以考虑下面的方法：

library(callr)

OpenExcel_5param <- function(directory,
                             filename, 
                             MacroName,
                             param1,
                             param2, 
                             param3,
                             param4,
                             param5)
{
  library(RDCOMClient)
  
  # Open a specific workbook in Excel:
  data <- paste(c(directory,'/',filename,'.xlsm'), collapse = '')
  xlApp <- COMCreate("Excel.Application")
  xlWbk <- xlApp$Workbooks()$Open(data)
  
  # this line of code might be necessary if you want to see your spreadsheet:
  xlApp[['Visible']] <- TRUE 
  xlApp$Run(MacroName,param1,param2, param3, param4, param5)
  
  # Close the workbook and quit the app:
  xlWbk$Close(FALSE)
  xlApp$Quit()
  
  # Release resources:
  rm(xlWbk, xlApp)
  gc()
}

callr::r(func = OpenExcel_5param, args = list(directory, filename, MacroName, param1, param2, param3, param4, param5))

赞(0）回复(0）举报 2023-04-27

我来回答

访问< checkErrorInfo>excel文件时在R中获取“80020009 Error in .COM(x，name，...)：”

1条答案

相关问题

热门标签

最新问答