Vba 将文件移动到文件夹

我有同名的文件和文件夹如何将这些文件移动到同名的文件夹中

在VBA中，您可以使用Scripting.FileSystemObject在文件夹之间移动文件。 要做到这一点，您可以在以下子系统中执行类似操作：

---

希望这有帮助。

首先，我怀疑您是否有同名的文件和文件夹，文件系统不会接受。也许这些文件有扩展名？你问的时候要准确！第二，这是一个编程问题吗？如果是，请阅读，然后回答您的问题并将代码添加为。当你运行它时会发生什么？你以为会发生什么？有错误吗？如果这不是关于编程的，那么这个问题在这里是离题的。你可以使用CMD来做这件事吗

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