无需打开/保存即可评估 Excel 文件

有没有一种方法可以在不手动打开文件的情况下计算Excel公式？如果 openxlsx 不是最佳选择，请随时推荐其他软件包。谢谢！

我的目标是将数据粘贴到 Excel 文件（已经存在）中，其中的公式引用我要粘贴数据的范围，并让 Excel 刷新其公式并计算摘要统计数据（例如总和）。我想用 R 代码更新公式并保存文件，以便我可以将汇总值读取到 R 中，而无需打开/保存 excel 文件。

我想删除手动步骤（下面粗体）。

我正在使用的工作簿有两张表：原始数据和摘要。我在文件中开始之前的唯一数据是 A2:D2 上的求和公式。 A2 包含 =SUM(原始数据!A:A)

require("openxlsx")
wb <- loadWorkbook("MyTestWorkBook.xlsx")
writeData(wb,iris, sheet="rawData")
saveWorkbook(wb,"MyTestWorkBook.xlsx",overwrite = TRUE)

从这里我得到了“摘要”表，其中包含每列的总和。 我读了那张纸。

read.xlsx("MyTestWorkBook.xlsx","summary")
  sumA sumB sumC sumD
1    0    0    0    0

我现在手动打开工作簿（不使用 R）并保存

read.xlsx("MyTestWorkBook.xlsx","summary")
   sumA  sumB  sumC  sumD
1 876.5 458.6 563.7 179.9

现在公式已经计算出来了。

我找到了解决这个问题的方法，但这不是最优雅的。解决方案是在使用 saveWorkbook() 之后、从刚刚保存的工作簿中读取数据之前立即执行以下函数：

calculate_wb_fn <- function(excel_file_directory, excel_file_name)
{
  macro_calculate_wb <- file(paste0(excel_file_directory,"macro_calculate_wb.vbs") )
  writeLines(c("Const xlVisible = -1",
               "Dim objExcel",
               "Dim objWb",
               "Dim objws",
               "Dim strFileName",
               paste0("strFileName = \"",gsub("/","\\\\",excel_file_directory),excel_file_name,"\""),
               "On Error Resume Next",
               "Set objExcel = CreateObject(\"excel.application\")",
               "Set objWb = objExcel.Workbooks.Open(strFileName)",
               "objExcel.DisplayAlerts = False",
               "objWb.Save",
               "objWb.Close SaveChanges=True",
               "objExcel.Close",
               "objExcel.Quit",
               "set objWb = Nothing",
               "set objExcel = Nothing",
               "On Error GoTo 0")
             , macro_calculate_wb)

  close(macro_calculate_wb)


  file <- normalizePath(paste0(excel_file_directory,"macro_calculate_wb.vbs") )


  shell(shQuote(string = file), wait = T)

  file.remove(paste0(excel_file_directory,"macro_calculate_wb.vbs"))
}

该函数使用 VBscript 创建一个文件，打开该文件，保存它（即，也计算它），然后关闭它。然后它执行该脚本，然后删除该脚本。