Переміщення / копіювання файлів з однієї папки в іншу на основі аркуша Excel

Будь ласка, спробуйте це так.
Скопіюйте або перемістіть один файл
Для одного файлу ви можете використовувати ім’я VBA і функцію FileCopy, а для цілих папок або багатьох файлів — інші приклади макросу на цій сторінці.
Додаткова копія_один_файл()
    FileCopy "C:\Users\Ron\SourceFolder\Test.xls", "C:\Users\Ron\DestFolder\Test.xls"
End Sub
Sub Move_Rename_One_File()
«Ви можете змінити шлях та ім’я файлу
    Назвіть "C:\Users\Ron\SourceFolder\Test.xls" як "C:\Users\Ron\DestFolder\TestNew.xls"
End Sub
Скопіюйте або перемістіть більше файлів або повних папок
Примітка. Прочитайте прокоментовані рядки коду в коді
Підкопія_папки()
'Цей приклад копіює всі файли та вкладені папки з FromPath в ToPath.
'Примітка: якщо ToPath вже існує, він перезапише наявні файли в цій папці
'Якщо ToPath не існує, він буде створений для вас.
    Dim FSO як об’єкт
    Dim FromPath як рядок
    Dim ToPath як рядок
    FromPath = "C:\Users\Ron\Data" '<< Змінити
    ToPath = "C:\Users\Ron\Test" '<< Змінити
    «Якщо ви хочете створювати резервну копію своєї папки щоразу, коли ви запускаєте цей макрос
    «Ви можете створити унікальну папку з міткою дати/часу.
    'ToPath = "C:\Users\Ron\" & Format(Зараз "рррр-мм-дд ч-мм-сс")
    Якщо Right(FromPath, 1) = "\", Тоді
        FromPath = Left(FromPath, Len(FromPath) - 1)
    End If
    Якщо Right(ToPath, 1) = "\", Тоді
        ToPath = Ліворуч(ToPath, Len(ToPath) - 1)
    End If
    Встановіть FSO = CreateObject("scripting.filesystemobject")
    Якщо FSO.FolderExists(FromPath) = False, то
        MsgBox FromPath & "не існує"
        Exit Sub
    End If
    FSO.CopyFolder Джерело:=FromPath, Destination:=ToPath
    MsgBox "Ви можете знайти файли та підпапки з " & FromPath & " в " & ToPath
End Sub