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

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

Answer 2

您可以使用文件系统对象：

Dim FSO as Object
Set FSO = CreateObject("Scripting.Filesystemobject")
FSO.MoveFile("SourceFileName", "TargetFileName")

如果您需要进一步的说明，请随时发表评论。