从 XLSX（多张）转换为批处理后命名 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 并想要

将 sheet 名称添加到每个文件名的末尾
为每个文件 sheets8:10 创建多个 csv

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

结果

从 XLSX（多张）转换为批处理后命名 CSV 文件

Naming CSV files after converting from XLSX(with mutliple sheets) as a batch r

r

xlsx