将文件移动到另一个文件夹的宏按钮

Question

我正在尝试修复命令宏中的错误，该错误在单击时将文件从当前文件夹位置移动到另一个文件夹。但是，当前代码无法正常工作，并产生编译错误。非常感谢您的帮助，因为我一直在努力解决这一问题。

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

    Set FSO = CreateObject("Scripting.Filesystemobject")
    SourceFileName = "https://xxxxxxxxx1/"
    DestinFileName = "https://xxxxxxxxx2/"

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

    MsgBox (SourceFileName + " Moved to " + DestinFileName)

End Sub

Answer 1

您可能文件路径错误。您似乎在使用位置，就好像它们是网页一样。尝试使用类似C:\MyUser\...

的内容

另外，我不确定event Approve_click有什么用。您可以尝试将其删除，或者如果确定需要，则可以尝试

Private Sub Approve_Click()
    Dim FSO As Object
    Dim SourceFileName As String, DestinFileName As String

    Set FSO = CreateObject("Scripting.Filesystemobject")
    SourceFileName = "C:\MyUser\source.xlsx"
    DestinFileName = "C:\MyUser\dest.xlsx"

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

    MsgBox (SourceFileName + " Moved to " + DestinFileName)

End Sub