R语言批量处理读取压缩包里面的Excel文件（带源代码）

尝试了多种方法，当前发现这种方式相对比较好。

第一步用360解压所有Excel文件到一个文件夹中，选择重新命名

 第二步，批量转化Excel文件为CSV文件。不要问为什么要转化为CSV文件，因为数据量巨大的时候，Excel文件用R处理起来非常困难，用Python处理也很困难。。。也许是我渣，以后找到好方法再来分享。项目紧，先得到想要的结果，说远了，拉回来。。。在文件夹中新建一个Excel文件，在sheet1点右键，然后选择查看代码到如下界面

输入上面图中的代码，图中两行分别为目标源文件夹的路径，准备存放CSV的文件路径，注意，最后一定要在文件后面带 "\"，这个反斜杠，这串代码也是在网上找的，最开始出处没标明，原作者可以认领，非常感谢原作者大神。

代码如下：

Sub SaveToCSVs()

    Dim fDir As String

    Dim wB As Workbook

    Dim wS As Worksheet

    Dim fPath As String

    Dim sPath As String

    fPath = "D:\Desktop\Rwork\cylinder stress files\2021-12-10\BC5465CB4772\"

    sPath = "D:\Desktop\Rwork\cylinder stress files\2021-12-10\CSV保存文件夹\"

    fDir = Dir(fPath)

    Do While (fDir <> "")

        If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then

            On Error Resume Next

            Set wB = Workbooks.Open(fPath & fDir)

            'MsgBox (wB.Name)

            For Each wS In wB.Sheets

                wS.SaveAs sPath & wB.Name & ".csv", xlCSV

            Next wS

            wB.Close False

            Set wB = Nothing

        End If

        fDir = Dir

        On Error GoTo 0

    Loop

End Sub

 然后加载运行，就会得到所有的Excel编程CSV文件，如下

 得到的CSV文件们。。。

 接下来就方便R语言读取数据了

#加载xlsx包

library(xlsx)

#读取每个CS