我每月都有一个合理的定期流程，试图将文件从一个文件夹移动到另一个文件夹。它是几个不同的源文件夹中的几个文件，也到几个目标文件夹中。为了节省时间，我想在第三种目录文件中创建一个宏，该宏将根据一个单元格中的给定文件路径（我们将其称为“源”）将文件复制到某些文件中给定的文件路径其他单元格（“目标”）。我只想开始使用一个源文件移动到一个目标路径来开始此操作，以为以后可以为其中几个文件复制宏。我已经使用此处找到的类似内容整理了一些代码，但似乎找不到文件或路径。

Dim rngFile As Range,cel As Range
Dim desPath As String,filename As String

Set rngFile = ThisWorkbook.Sheets("Sheet1").Range("A26")

desPath = ThisWorkbook.Sheets("Sheet1").Range("B26") 'change to a valid path

For Each cel In rngFile
    If Dir(cel) <> "" Then
        filename = Dir(cel) 'Returns the filename
        FileCopy cel,desPath & filename 'copy to folder
    End If
Next

End Sub