写一段vba代码，批量excel更换数据源，将文件夹1中的所有文件全部更换一遍，并在文件夹2中生成新的文件，命名与文件夹1中的对应文件命名相同

在VBA中编写这样的脚本涉及到使用`Application.FileDialog`, `FileSystemObject`, 和 `ActiveWorkbook` 对象。下面是一个基本的示例，假设你需要替换的是A1单元格的内容，并且文件夹结构如下：

1. 文件夹1: 包含多个Excel文件 (例如: File1.xlsx, File2.xlsx, ...)
2. 新的目标文件夹: File夹2 (例如: OutputFiles)

Sub ReplaceDataInFolder()
    Dim fso As Object
    Dim f As Object
    Dim file As Object
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim shtName As String
    Dim filePath As String
    Dim outputPath As String
    
    ' 创建FileSystemObject实例
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 选择源文件夹
    Set f = fso.GetFolder("C:\Path\To\Folder1") ' 请替换为实际文件夹路径
    If f Is Nothing Then
        MsgBox "无法找到文件夹1"
        Exit Sub
    End If
    
    ' 遍历文件夹中的每个Excel文件
    For Each file In f.Files
        If Right(file.Name, 4) = ".xlsx" Then
            ' 新建输出文件夹
            Set outputPath = fso.CreateFolder(f.Path & "\OutputFiles")
            
            ' 读取源文件
            Set wb = Workbooks.Open(file.Path)
            Set ws = wb.Worksheets(1) ' 如果有多张工作表，可能需要更改
            
            ' 替换数据源（例如将"A1"单元格内容替换成新值）
            ws.Range("A1").Value = "New Value" ' 请替换为实际的新数据源
            
            ' 保存并在输出文件夹中生成新的Excel文件
            ws.SaveAs Filename:=outputPath & "\" & file.Name, FileFormat:=xlOpenXMLWorkbook ' 保留原有格式
            wb.Close SaveChanges:=True
        End If
    Next file
    
    ' 清理对象
    Set ws = Nothing
    Set wb = Nothing
    Set fso = Nothing
End Sub