excel批量复制其他文件夹中文件到另一个文件夹的宏代码

在Excel中编写宏批量复制文件通常涉及到操作系统级别的操作，而不是直接在Excel中完成。不过，你可以利用VBA（Visual Basic for Applications）来编写一个脚本来达到目标，这里提供一个基本的示例，假定你是从Windows文件系统中复制文件：

Sub CopyFilesToAnotherFolder()
    Dim sourceFolder As String
    Dim destFolder As String
    Dim fileNames() As String
    Dim fileName As String
    
    ' 设置源文件夹和目标文件夹路径
    sourceFolder = "C:\SourceFolder\" ' 更改为源文件夹路径
    destFolder = "C:\DestinationFolder\" ' 更改为目标文件夹路径
    
    ' 获取源文件夹中的文件名数组
    fileNames = Dir(sourceFolder & "*.txt") ' 示例仅针对.txt文件，可自行调整

    ' 遍历文件名并复制到目标文件夹
    For Each fileName In fileNames
        If FileExists(fileName) Then ' 检查文件是否存在
            Call Shell("copy """ & sourceFolder & fileName & """" & " """ & destFolder & fileName & """"", vbNormalFocus) ' 使用Shell函数复制文件
        Else
            Debug.Print "文件 """ & fileName & """ 在源目录不存在。"
        End If
    Next fileName

    ' 结束后显示消息确认
    MsgBox "所有文件已复制到目标文件夹。"

End Sub

Function FileExists(ByVal filePath As String) As Boolean
    On Error Resume Next
    FileExists = FileExists(filePath)
    On Error GoTo 0
End Function