我使用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,但没有帮助。
1条答案
按热度按时间qeeaahzv1#
如果你的代码在一个R会话中只工作一次(也就是说,在同一个R会话中不会工作两次,但是如果你重新启动R,它会再次工作),你可以考虑下面的方法: