如何将 xlsx 文件批量转换为 csv？ [关闭]

Question

我有一个包含大约 200 个文件（也非常小）的文件夹，这些文件需要转换为分隔的 txt 文件或 csv 文件（这显然更好）。它们都被命名为 1、2、3 等。我使用 VBA 在网上找到的代码似乎对我不起作用。我在 Mac 上（High Sierra） 显然我问的问题不止一个——我不明白这是怎么回事，因为我只需要其中一个有效的程序中的代码。我只是提出程序和不同的文件扩展名，因为我正在寻找最简单的解决方案。

Answer 1

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

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) 来读取 MS xlxs。使用 list.files，您可以轻松浏览所有文件。