r - 从 XLSX（带有多张纸）转换为批处理 r 后命名 CSV 文件

Question

library(xlsx)
lapply(files.to.read, function(f) {
df = read.xlsx(f, sheetName = 'Sheet8')
write.csv(df, gsub("xlsx", "csv", f), row.names=FALSE) 
     })

我正在将 xlsx 转换为 csv 并想要

• 将工作表名称添加到每个文件名的末尾
• 为每个文件的 sheet8:10 创建多个 csv

标签： rxlsx

Answer 1

像这样的东西？

代码

files <-  list.files(path = "./", pattern = "*.xlsx$", recursive = FALSE, full.names = TRUE)
sheet_to_read <- c( 8, 9, 10 )

library( readxl )

for( excelsheet in files) {
  for (sheet in sheet_to_read) {
     temp <- read_excel( path = excelsheet, sheet = sheet)
     write.csv( temp, file = paste0( "./", gsub("./", "", excelsheet), "-sheet", sheet,".csv") )
  }
}

结果