Читать несколько макросов с поддержкой файлов 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)) 
}