通过vba将我的文档上传到sharepoint

我有这个代码通过映射到驱动器上传我的文档到共享点通过vba。 但是，甚至在我运行代码之前，我得到一个“编译错误，子或函数未定义”。 然后突出显示这一行的第二个引号：objNet.MapNetworkDrive“A：”，SharepointAddress

下面是整个Sub例程。 所有的帮助和意见，赞赏。 先谢谢你！

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 

Answer 1

你的引号在这个问题上看起来有点奇怪： ” 。

删除”并将其replace为"用于shapepointaddress =...variables的那些" 。

Answer 2

我会期待：

 SharepointAddress = "\\share.deere.com\teams\sm_at_sd\suppcaptracking\Test"