用于将某个范围从一个文件夹中的多个工作簿复制到另一个文件夹的VBA

Sub CopyDataBetweenFolders()
    Dim sourceFolder As String
    Dim destFolder As String
    Dim file As String
    Dim wb As Workbook
    
    ' 设置源文件夹和目标文件夹路径
    sourceFolder = "C:\Path\To\Source\Folder"
    destFolder = "C:\Path\To\Dest\Folder"
    
    ' 获取源文件夹中的所有Excel文件
    file = Dir(sourceFolder & "\*.xlsx")
    
    Do While file <> ""
        ' 打开工作簿
        Set wb = Workbooks.Open(sourceFolder & "\" & file)
        
        ' 复制数据（假设数据在Sheet1的A1:D10范围内）
        wb.Sheets("Sheet1").Range("A1:D10").Copy
        
        ' 创建目标文件并粘贴数据
        Workbooks.Add
        ActiveSheet.Paste Destination:=Range("A1:D10")
        
        ' 保存并关闭目标文件
        ActiveWorkbook.SaveAs destFolder & "\" & file
        ActiveWorkbook.Close
        
        ' 处理下一个文件
        file = Dir
    Loop
    
    MsgBox "数据复制完成！"
End Sub