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

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

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

---

您的文件路径可能有误。 您似乎在使用位置，就好像它们是网页一样。 尝试使用类似于

C:\MyUser\…

另外，我不确定event

Approve\u 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

解决了上述问题后，我想在本例中正确的问题是如何在Excel VBA中使用Sharepoint地址？。 如果要使用Sharepoint地址，可能需要

---

愿意与我们分享错误吗？它发生在哪条线上？这个密码有用吗？嗨，罗恩，上面写着“预期的结局”。现在我试着结束If，但仍然给出相同的错误。它表示错误出现在第一行“Private Sub Approve\u Click（）”

Private Sub Approve\u Click（）

声明了一个子例程。代码的下一行也是这样做的。在第二次声明之前没有

结束子项

。我想说VBA的投诉是完全有道理的。同意，但在出现错误后，我删除了End Sub，它仍然会给我带来错误，可能是因为sharepoint地址必须以不同的方式使用。我想你可能是对的。如果我删除命令按钮approve\u click，那么它表示找不到路径。但我试图做的基本上是将文件从一个sharepoint文件夹保存到另一个sharepoint文件夹，这显然不起作用。知道我该怎么做吗？@SiddharthGadekar-目前正在尝试的可能会对初学者有所帮助。我想正确的问题是如何在Excel VBA中使用Sharepoint地址。这里问题的原因很清楚。