Переместить файлы в папки

Question

У меня есть файлы и папки с одинаковым именем, как я могу переместить эти файлы в папку с таким же именем.

Answer 1

В VBA вы можете перемещать файлы между папками с помощью Scripting.FileSystemObject.
Чтобы сделать это, вы можете успокаиваться, как в этом Sub:

Sub MoveFiles()
    Dim FSO As Object
    Dim SourceFileName As String, DestFileName As String

    Set FSO = CreateObject("Scripting.Filesystemobject")
    SourceFileName = "C:\Users\myUser\Documents\Test.xlsx"
    DestFileName = "C:\Users\myUser\Desktop\Test.xlsx"

    FSO.MoveFile Source:=SourceFileName, Destination:=DestFileName
End Sub

Надеюсь, это поможет.