读取同一目录中的所有 Excel 工作簿，每个工作簿都有多个工作表，并将每个工作表导出为 R 中的 a.csv

Question

我正在尝试从多个工作簿中读取所有工作表，然后将每个工作表导出为自己的.csv。 我运行了这段代码：

files.to.read <- list.files(path = "/Users/filelocation", pattern="xlsx",
                            full.names = TRUE)

然后我应用这行代码将目录中的所有 xlsx 转换为 csv，但是它不考虑每个 xlsx 文件中的各个工作表。

lapply(files.to.read, function(x) {
  df = read_excel(x, sheet=1)
  write.csv(df, gsub("xlsx", "csv", x), row.names=FALSE)
})

考虑工作表的最佳方法是什么？ 我尝试在 function 中使用 excel_sheets() 和 map_df() 但它一直返回

Error: `path` must be a string

请帮助并感谢社区！

Answer 1

您需要先阅读所有工作簿，然后从每个工作簿中阅读其中的所有工作表。

使用lapply您可以尝试：

library(readxl)

files.to.read <- list.files(path = "/Users/filelocation", 
                            pattern="xlsx", full.names = TRUE)

lapply(files.to.read, function(x) {
  sheets <- excel_sheets(x)
  lapply(sheets, function(y) {
    df = read_excel(x, sheet=y)
    write.csv(df, paste0(tools::file_path_sans_ext(basename(x)), y, '.csv'), 
              row.names=FALSE)  
  })
})

Answer 2

在不知道下划线数据的情况下很难说导致错误的原因以及导致错误的原因，因此我将修改您的代码，以确保它读取每张纸，并且在发生错误时会出现 output 那个错误。 请尝试一下，看看错误的原因是什么：

library(readxl)

files.to.read <- list.files(path = "/Users/filelocation", pattern="xlsx",
  full.names = TRUE)

read_excel_to_csv <- function(x) {
  sheets <- excel_sheets(x)
  lapply(sheets, function(y) {
    tryCatch({
      df = read_excel(x, sheet=y)
      write.csv(df,
        path = paste0(tools::file_path_sans_ext(basename(x)), "_", y, '.csv'),
        row.names=FALSE)  
    }, error = function(e) {
      print(paste0("Error at file: ", x, " --- sheet: ", y))
    })    
  })
}

lapply(files.to.read, read_excel_to_csv)

@Modify 将部分代码用于@Ronak 的答案