通过 VBA 将文件上传到 SharePoint答案

【问题标题】：Upload File to SharePoint through VBA通过 VBA 将文件上传到 SharePoint
【发布时间】：2019-10-17 19:10:40
【问题描述】：

我在一些论坛上看到过这段代码（或类似的），但有些论坛没有这行映射：“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

【问题讨论】：

标签： vba sharepoint fso

【解决方案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

应该不需要映射驱动器。

【讨论】：

谢谢蒂姆。不会对记忆造成伤害吗？