VBA将.XLSX文件转换为批量.CSV的问题

Sub ConvertXLSXtoCSV()
    Dim wb As Workbook
    Dim savePath As String
    
    ' 设置转换后的CSV文件保存路径
    savePath = "C:\CSV\" ' 这里的路径可以根据您的需要进行更改
    
    ' 遍历当前文件夹中的所有XLSX文件
    For Each File In GetFiles("C:\Folder\", "*.xlsx") ' 这里的路径可以根据您的需要进行更改
        ' 打开XLSX文件
        Set wb = Workbooks.Open(File)
        
        ' 对每个工作表进行循环并保存为CSV文件
        For Each ws In wb.Sheets
            ' 生成CSV文件名，使用原始文件名加上工作表名
            csvName = savePath & Left(File, InStrRev(File, ".") - 1) & "-" & ws.Name & ".csv"
            
            ' 保存当前工作表为CSV文件
            ws.SaveAs csvName, xlCSV
        Next ws
        
        ' 关闭当前XLSX文件
        wb.Close False
    Next File
    
    MsgBox "转换完成！"
End Sub

Function GetFiles(path As String, ext As String) As Collection
    Dim files As New Collection
    Dim folder As Object
    Dim file As Object
    
    Set folder = CreateObject("Scripting.FileSystemObject").GetFolder(path)
    
    On Error Resume Next
    For Each file In folder.Files
        If LCase(Right(file.Name, Len(ext))) = LCase(ext) Then
            files.Add file.Path
        End If
    Next file
    On Error GoTo 0
    
    Set GetFiles = files
End Function