Excel到Sharepoint MapNetworkDrive错误

Question

使用Excel 2013，我尝试使用以下方法将Excel文件上传到共享点。 我似乎在映射网络驱动器时遇到问题，我得到的错误是objNet.MapNetworkDrive "A: ", sFolder行上的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

Answer 1

我确定这是正确的，但这似乎很简单，所以如果不告诉我，我将删除。

我相信您需要替换此行：

objNet.MapNetworkDrive "A: ", sFolder

有了这个：

objNet.MapNetworkDrive "A:", sFolder

在指定要映射的驱动器之后，还有一个空格，我认为应该没有空格。