将文件移到文件夹

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

希望这会有所帮助。