Excel Sharepoint MapNetworkDrive 错误

Question

使用 Excel 2013，我正在尝试使用以下方法将 excel 文件上传到共享点。我似乎在映射我的网络驱动器时遇到问题，我得到的错误是 objNet.MapNetworkDrive "A: ", sFolder 行上的 "The specified device name is invalid"。

如有任何帮助，我们将不胜感激 - 提前致谢。

Sub nlsharepoint()

Dim sFolder As String
Dim sFileName As String
Dim locFolder
Dim objNet As Object
Dim FS As Object

sFolder =  "\company.sharepoint.com\sites\company\Documents\Morning%20Reports\"
sFileName = "New Line Tracker 2.xlsx"
locFolder = "C:\User\Desktop\NewLinesOutput.xlsx"

Set objNet = CreateObject("WScript.Network")
Set FS = CreateObject("Scripting.FileSystemObject")
objNet.MapNetworkDrive "A: ", sFolder

If FS.fileexists(locFolder) Then
FS.copyfile locFolder, sFolder
End If

objNet.RemoveNetworkDrive "A:"
Set objNet = Nothing
Set FS = Nothing
End Sub

Answer 1

我确定这是正确的，但它看起来很简单，所以如果不告诉我，我会删除。

我认为您需要替换这一行：

objNet.MapNetworkDrive "A: ", sFolder

有了这个：

objNet.MapNetworkDrive "A:", sFolder

指定要映射的驱动器后有一个space，我认为不应该有。

Excel Sharepoint MapNetworkDrive 错误

Excel to Sharepoint MapNetworkDrive error

excel

sharepoint

vba