Question

目标是使用OpenXLSX将数据添加到现有excel文件，然后使用RDCOMClient在同一个Excel文件中运行宏，并从R脚本中保存它。

Excel宏对数据加载后必须发生的数据透视表过滤器和折叠点进行更改。

这个小问题的复制工作毫无问题：

library(openxlsx)
library(RDCOMClient)

ds <- cars
tmpl <- './templates/templatetest.xlsm'
datatab <- 'data'
datarng <- 'pdata'
fn <- paste0("./WAR/", "test1.xlsm")

wb <- loadWorkbook(tmpl)
writeData(wb, datatab, ds)
saveWorkbook(wb, fn, overwrite = TRUE)
rm(wb)

# note this doesn't reveal the full actual UNC path
fn <- paste0("./WAR/",
             "test1.xlsm")


xlApp <- COMCreate("Excel.Application")
xlWbk <- xlApp$Workbooks()$Open(fn)

# run macros
xlApp$Run("clear_pt_filters")
xlApp$Run("CollapsePivotFields")
xlApp$Run("toggle_alcItems")

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

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

但是，在生产中运行时，我在第一个宏行出现错误：

xlApp $运行（ “clear_pt_filters”）

.COM（x，name，...）中的错误：无法找到0个名称在COM中运行对象（状态= -2147418111）

我怀疑这是由于加载1-2 MB文件的时间，而R正在进行而没有RDCOMClient为宏运行请求做好准备的信号。

我通过从同一个宏行开始再次运行脚本来手动解决此问题。最后，错误只会阻止完全自动化，电子表格完全符合预期。

编辑：如果我逐行逐步执行'生产'版本，则没有错误。

我的问题是：1）错误的原因是什么，以及2）我可以做些什么来解决自动化中的问题？

感谢。

Answer 1

我使用的最简单的解决方案是使用Sys.sleep（）插入一秒钟的暂停。

Sys.sleep(1)

所以，从上面看，它看起来像编辑：

xlApp <- COMCreate("Excel.Application")
xlWbk <- xlApp$Workbooks()$Open(fn)

# run macros
Sys.sleep(1)
xlApp$Run("clear_pt_filters")
xlApp$Run("CollapsePivotFields")
xlApp$Run("toggle_alcItems")

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

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

归功于Is there a "pause" function in R?

Answer 2

我认为问题是saveWorkbook（）函数是以xlsx格式保存的，可能不会保留工作簿中的宏信息。可能更好的方法是使用RDCOMClient完全处理它。可能通过这样的方法。

library(openxlsx)
library(RDCOMClient)

ds <- cars
tmpl <- './templates/templatetest.xlsm'
newfile <- './templates/templatetestNEW.xlsm'

# Create Excel instance
xlApp <- COMCreate("Excel.Application")

# Open workbook template
xlWB <- xlApp$Workbooks()$Open(tmpl)

# Select the "data" Sheet
xlSheet <- xlWB$Sheets("data")

# Create a dataframe from headers
headers <- t(as.data.frame(colnames(ds)))
# Set range for headers
rng <- xlSheet$Range(xlSheet$Cells(1, 1),xlSheet$Cells(1, ncol(headers)))
# Insert headers
rng[["Value"]] <- asCOMArray(headers)

# Set range for data values
rng <- xlSheet$Range(xlSheet$Cells(2, 1),xlSheet$Cells(nrow(ds)+1, ncol(ds)))

# Add data to Excel sheet
rng[["Value"]] <- asCOMArray(ds)

# Save Workbook
xlWB$SaveAs(gsub("/","\\\\",newfile))

# run macros
xlApp$Run("clear_pt_filters")
xlApp$Run("CollapsePivotFields")
xlApp$Run("toggle_alcItems")

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

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

从R到RDCOMClient运行Excel宏，错误-2147418111

2 个答案: