Загрузить файл в SharePoint через VBA

Question

Я видел этот код (или похожий на него) на некоторых форумах, но некоторые не имеют таких строк для отображения: "objNet.MapNetworkDrive“ A: ”, SharepointAddress"

Безопасно ли длякомпьютер / сеть, чтобы пропустить этот код?

Sub UploadToSharepoint()

Dim SharepointAddress As String
 Dim LocalAddress As String
 Dim objNet As Object
 Dim FS As Object
 SharepointAddress = "http://share.deere.com/teams/sm_at_sd/suppcaptracking/Test"

 LocalAddress = "c: MyWorkFiletoCopy.xlsx"

Set objNet = CreateObject(“WScript.Network”)

Set FS = CreateObject(“Scripting.FileSystemObject”)
 objNet.MapNetworkDrive “A: ” , SharepointAddress

If FS.FileExists(LocalAddress) Then
 FS.CopyFile LocalAddress, SharepointAddress
 End If

objNet.RemoveNetworkDrive “A: ”

Set objNet = Nothing

Set FS = Nothing

End Sub

Answer 1

Это может быть лучшим подходом:

Sub UploadToSharepoint()

    Dim SharepointAddress As String
    Dim LocalAddress As String
    Dim FS As Object

    SharepointAddress = "\\share.deere.com\teams\sm_at_sd\uppcaptracking\Test"

    LocalAddress = "c:\blah\blah2\MyWorkFiletoCopy.xlsx"

    Set FS = CreateObject("Scripting.FileSystemObject")

    If FS.FileExists(LocalAddress) Then
        FS.CopyFile LocalAddress, SharepointAddress
    End If

End Sub

Не нужно подключать диск.