R / vba - открыть и сохранить несколько книг (+500) и отбросить формулы, т.е. сохраняя только фрейм данных

Рассмотрим RDComclient R, который может COM интерфейс к библиотеке объектов Excel, где вы можете использовать R для циклического перебора необходимых файлов и соответствующих листов и использования собственных методов Excel (а не методов сторонних пакетов), Range.Copy и Range.PasteSpecial, чтобы копировать значения ячеек без формул.

Ниже процедура заключена в tryCatch, чтобы без проблем выйти из обработки даже с простыми ошибками. Обратите внимание: некоторые COMExceptions не перехватываются, и вам нужно будет выйти из процесса EXCEL.EXE из диспетчера задач.

library(RDCOMClient)

wbdir <- setwd("C:/Users/blabla/Desktop/wbfiles")
wblist <- list.files(wbdir, full.names = TRUE)

xlPasteValues <- -4163

for (wb in wblist) {    
  tryCatch({
    # Create COM Connection to Excel
    xlApp <- COMCreate("Excel.Application")
    xlApp[['Visible']] <- FALSE
    xlApp[['DisplayAlerts']] <- FALSE

    # Open workbook
    xlWB <- xlApp[["Workbooks"]]$Open(wb)

    # Iterate through each worksheet
    for (s in seq(xlWB$Worksheets()$Count())) {
      xlSheet <- xlWB$Worksheets(s)

      # Copy and paste values
      xlSheet$Cells()$Copy() 
      xlSheet$Cells()$PasteSpecial(xlPasteValues)

      xlApp[['CutCopyMode']] <- FALSE

      xlSheet$Activate()
      xlSheet$Range("A1")$Select()        
    }

    }, error=function(e) {
        print(e)  
    },

    finally={
      xlApp[['DisplayAlerts']] <- TRUE

      # Save Changes
      xlWB$Close(TRUE)        # THIS WILL OVERWRITE (BACKUP IN TEST MODE)
      xlApp$Quit()

      # Release resources
      xlSheet <- NULL
      xlWB <- NULL
      xlApp <- NULL

      rm(list=ls()) 
      gc()
    }
  )    
}

Поскольку COM - это технология Windows, указанное выше решение работает только в R, работающем в среде Windows.