Кнопка макроса для перемещения файла в другую папку - PullRequest
Новая
       6

Кнопка макроса для перемещения файла в другую папку

0 голосов
/ 16 марта 2020

Я пытаюсь исправить ошибку в макросе команды, который при нажатии перемещает файл из текущей папки в другую папку. Однако текущий код не работает и выдает ошибку компиляции. Любая помощь очень ценится, так как я пытаюсь решить эту проблему в течение длительного времени. 

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

1 Ответ

0 голосов
/ 16 марта 2020

Возможно, вы неправильно указали путь к файлу. Вы, кажется, используете местоположения, как если бы они были веб-страницами. Попробуйте использовать что-то вроде 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

Я думаю, правильный вопрос в этом случае, решив проблему выше, это как использовать Sharepoint адреса в Excel VBA? . Если вы хотите работать с адресами Sharepoint, вам, вероятно, понадобится

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

...