R/vba - いくつかのブック（+500）を開いて保存し、数式を破棄します。データフレームのみを保持する

Question

複数のスプレッドシートを含む複数のワークブックファイル（xlsx）を開き、各セルの式を破棄してデータを内部に保持したいとします。私はそれをmannualyするだろうが、少なくとも500のブッ​​クで私はタスクを自動化したいと思います。

自分自身に複数の部分的な解決策が見つかりました。たぶん、最も単純なのはvba経由で行うことですが、私はそれらの指示をどのように書くのか分かりません。私が管理できる他の解決策はRを通してです。

私はいくつかのパッケージをテストしましたが、最も有用なのはxlsxです。一度に1つのスプレッドシートしか保存できません。各スプレッドシートを1つのファイル（1つのワークブック）にまとめる方法。

私が今までに行った解決策は、ループ内でファイルを開き、XLConnectで再度保存することです。私は書式なしの書式を探していましたが、公式なしの式が存在することを知っていましたが、私はオプションを見つけることができませんでした...これらのパッケージを使った簡単な解決法はありますか？ Rで

仮：

library("XLConnect") 
wbdir <- setwd("C:/Users/blabla/Desktop/wbfiles") 
wblist <- list.files(wbdir) 

i <- 0L 
for (i in 1:length(wblist)) { 

     wb_formulas <- loadWorkbook(wblist[[i]]) 
     # something to overwriteformulas : opening witout formulas like xlsx/openxlsx package 
     # writing without ... 
     wb_df <- saveWorkbook(wb_formulas, paste(c("wb_", i,".xlsx"),collapse = "")) 
} 

Answer 1

はあなたが必要なファイルとそれに対応するワークシートをループにRを使用し、Excel独自のメソッド（いないサードパーティ製を使用することができますExcelのオブジェクトライブラリへのRのRDComclientいる可能COMインターフェースを考えてみましょうパッケージメソッド）、Range.CopyおよびRange.PasteSpecialを使用してセル値をコピーし、数式を除外します。

以下の手順は、tryCatchで包まれており、簡単なエラーでも処理を完全に終了します。メモ：一部のCOMExceptionsは検出されず、タスクマネージャからEXCEL.EXEプロセスを終了する必要があります。 COMは、Windowsの技術があるので

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() 
    } 
)  
} 

は、ソリューションの上にのみ、Windows環境で実行されているRで動作します。