循环浏览文件夹中的文本分隔文件并导出为csv的VBA

Sub ExportTextFilesToCSV()
    Dim fso As Object
    Dim folderPath As String
    Dim filePath As String
    Dim fileContent As String
    Dim fileLines() As String
    Dim csvFilePath As String
    Dim csvFile As Object
    Dim i As Integer
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 循环遍历文件夹中的文件
    For Each file In fso.GetFolder(folderPath).Files
        ' 判断文件是否为文本文件
        If LCase(fso.GetExtensionName(file.Path)) = "txt" Then
            ' 读取文件内容
            filePath = file.Path
            Open filePath For Input As #1
            fileContent = Input$(LOF(1), 1)
            Close #1
            
            ' 按行分割文件内容
            fileLines = Split(fileContent, vbCrLf)
            
            ' 创建CSV文件
            csvFilePath = fso.BuildPath(folderPath, fso.GetBaseName(file.Name) & ".csv")
            Set csvFile = fso.CreateTextFile(csvFilePath, True)
            
            ' 写入CSV文件
            For i = LBound(fileLines) To UBound(fileLines)
                csvFile.WriteLine fileLines(i)
            Next i
            
            ' 关闭CSV文件
            csvFile.Close
        End If
    Next file
    
    ' 释放对象
    Set fso = Nothing
    
    MsgBox "导出完成！"
End Sub