VBA遍历目录中的文件，在另一个目录中另存为csv，如果文件存在，则跳过

Sub TraverseAndSaveAsCSV()
    Dim fso As Object
    Dim sourceFolder As Object
    Dim targetFolder As Object
    Dim file As Object
    Dim fileName As String
    Dim targetFilePath As String
    
    ' 设置源目录和目标目录的路径
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set sourceFolder = fso.GetFolder("源目录路径")
    Set targetFolder = fso.GetFolder("目标目录路径")
    
    ' 遍历源目录中的文件
    For Each file In sourceFolder.Files
        fileName = file.Name
        
        ' 检查文件是否已存在于目标目录中
        If Not fso.FileExists(targetFolder.Path & "\" & Replace(fileName, ".xlsx", ".csv")) Then
            ' 构建目标文件的路径
            targetFilePath = targetFolder.Path & "\" & Replace(fileName, ".xlsx", ".csv")
            
            ' 执行另存为CSV操作
            ' 这里假设源文件是Excel文件，可以根据实际情况修改保存为CSV的方法
            Workbooks.Open file.Path
            ActiveWorkbook.SaveAs targetFilePath, FileFormat:=xlCSV
            ActiveWorkbook.Close SaveChanges:=False
        End If
    Next file
    
    ' 释放对象
    Set file = Nothing
    Set sourceFolder = Nothing
    Set targetFolder = Nothing
    Set fso = Nothing
End Sub