我有200个.xlsx文件的文件夹..我需要将它们转换为txt文件

Question

我想将位于“C：/ Users / hp / Desktop / excel”中的100个excel文档转换为.txt格式。我正在尝试使用lapply以便所有这些文件一次性转换为txt。 请帮我 .. 如果我有一个文件，我将以下列方式将.xlsx文档转换为txt 库（XLSX）

sink("output.txt")

data=read.xlsx("C:/Users/hp/Desktop/excel/test2.xlsx",1)

data

sink()

我正在编写以下代码以递归方式执行

dest <- "C:/Users/hp/Desktop/excel"

dir(dest)

myfiles <- list.files(path = dest, pattern = "xlsx",  full.names = TRUE)

lapply(myfiles,function(x)  system(sink(x) data=read.xlsx(myfiles,1) data 
sink()),fullnames=TRUE) 

完成.xlsx之后，还必须为.docx完成