读取多个启用macros的Excel文件

我想阅读大约500 Excel文件启用马科斯，我得到这个错误：

错误：跳过所有数据

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

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

如果我运行10到15个启用macros的文件的代码，我可以读取数据。 但是，当试图读取所有文件时，我得到上述错误。

有什么办法可以阅读这些文件吗？ 我怎样才能debugging这个错误？

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