Excel到Sharepoint MapNetworkDrive错误

使用Excel 2013，我试图使用下面的方法上传一个Excel文件到共享点。 我似乎有映射我的networking驱动器的问题，我得到的错误是“指定的设备名称是无效的” 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 

在指定驱动器映射之后有一个空格，我不相信应该有。