读取多个启用宏的Excel文件

Question

我试图阅读大约500个启用了marcos的Excel文件，并且我收到此错误：

  

错误：跳过所有数据

这是我用来运行程序的代码：

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