excel - 将文件从一个文件夹移动到另一个文件夹

Question

实际上，我正在寻找将 Excel 文件从一个文件夹移动到另一个文件夹的代码，如果有任何方法可以这样做，请有人帮助我。我很抱歉，但我不知道如何编码，因为我从未使用过 VBA，事实上我是第一次看到它。

我会很感激你

Answer 1

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

    Set FSO = CreateObject("Scripting.Filesystemobject")
    SourceFileName = "C:\Users\Jun.xlsx"
    DestinFileName = "C:\Users\Desktop\Jun.xlsx"

    FSO.MoveFile Source:=SourceFileName, Destination:=DestinFileName

    MsgBox (SourceFileName + " Moved to " + DestinFileName)
End Sub