Vba Excel到Sharepoint MapNetworkDrive错误

使用Excel 2013，我尝试使用以下方法将Excel文件上载到sharepoint。我似乎在映射我的网络驱动器时遇到问题，在

objNet.MapNetworkDrive“A:，sFolder

行中，我得到的错误是“指定的设备名称无效”

在此问题上的任何帮助都将不胜感激-提前感谢

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

---

我相信这是正确的，但它似乎很简单，所以如果不让我知道，我会删除

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

objNet.MapNetworkDrive "A: ", sFolder

为此：

objNet.MapNetworkDrive "A:", sFolder

---

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

谢谢，这有效地处理了“指定的设备名称无效”错误。不幸的是，我在同一行上遇到了“未找到网络路径”错误。我发现这很奇怪，因为我可以在另一个子目录中使用相同的字符串保存到该位置。假设我所做的所有工作都是将sFolder字符串匿名替换为我的公司名称，那么格式是否正确？你能建议其他导致这个错误的原因吗？现在是午夜，所以我不能做任何测试，但是如果你把SPO路径而不是UNC路径放进去会发生什么？Ie.Make sFolder=“”使用“company.sharepoint.com/company/Documents/Morning Reports”或“Reports/”无法找到我获得的网络名称。谢谢你这么晚才来帮忙！