R 如何将xlsx文件批量转换为csv？

我有一个文件夹，里面有大约200个文件（非常小的文件），需要转换成带分隔符的txt文件或csv文件（显然更好）。它们都被命名为1、2、3等等。我在网上用VBA找到的代码似乎对我不起作用。我在mac电脑上（High Sierra）

---

显然，我问的不止一个问题——我不明白这是怎么回事，因为我只需要在一个有效的程序中编写代码。我只是在展示程序和不同的文件扩展名，因为我正在寻找最简单的解决方案。

如果您将它们都放在一个文件夹中：

library("readxl")


folder = "somewhere"
for(i in list.files(folder,full.names = TRUE)){
    # read  xlsx files
    my_data <- read_excel(i)
    write.csv(x = my_data,file = paste0(i,".csv"))

}

库（“readxl”）
folder=“某处”
对于（list.files（folder，full.names=TRUE）中的i）{
#读取xlsx文件
很抱歉再次打扰您，这些csv文件保存在哪里？与原始数据.library（“readxl”）>>>folder=“sanalyse”>相同的文件夹中（I In list.files（folder，full.names=TRUE））{+#read xlsx文件+我的数据您有任何错误吗？您可以包括一个“打印（head（my_data））”在读取excel行之后，查看数据读取是否正确。