読む複数のマクロ有効Excelファイル

Question

私はマルコスで約500 Excelファイルを読むために有効にしようとしている、と私はこのエラーを取得しています：

Error: Skipped over all data

これは私がプログラムを実行するために使用するコードです：

files <- list.files(pattern = ".xlsm") 
for (i in files){ 
    data <- ldply(files, read_excel, sheet = 'R1') 
    data$file_name <- files 
} 

10〜15個のマクロ対応ファイルのコードを実行すると、データを読み取ることができます。しかし、すべてのファイルを読み込もうとすると、上記のエラーが発生します。

これらのファイルを読み取る方法はありますか？このエラーをどのようにデバッグできますか？

Answer 1

これは機能しますか？

library(xlsx) 
setwd("C:/Users/your_path/Desktop/files") 
data.files = list.files(pattern = "*.xlsm") 
data <- lapply(data.files, function(x) read.xlsx(x, sheetIndex = 1)) 

for (i in data.files) { 
    data <- rbind(data, read.xlsx(i, sheetIndex = 1)) 
}