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

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\...

之类的东西

另外，我不确定事件 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

在解决了上述问题后，我想在这种情况下正确的问题是 如何在 Excel VBA? 中使用 Sharepoint 地址。如果您想使用 Sharepoint 地址，您可能需要

https://www.mrexcel.com/board/threads/vba-code-in-excel-to-copy-source-file-from-sharepoint-to-another-destination.332415/

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

Macro button to move file to another folder

excel

vba

move