vba - VBA - 将文件上传到共享点文档库停止工作

Question

我们的 SharePoint 网站曾经是本地的，它迁移到了托管在云上的网站。我们有以下 VBA 代码将文件上传到其文档库，尽管我们有正确的新 URL，但它停止工作。它不会引发任何错误，只是不会上传文件。还有另一种上传文件的方法吗？非常感谢。

' To read source files as byte
Dim binaryByte() As Byte
Dim binaryByteData As Variant

'Get lngFileLength for binarybyte initialization.
Dim lngFileLength As Long

'Initilizate the scripting object for getting folder information.
Dim objFSO As Scripting.FileSystemObject
Set objFSO = New Scripting.FileSystemObject

' Initialize the xmlhttp object
Dim LobjXML As Object
Set LobjXML = CreateObject("Microsoft.XMLHTTP")

'Set sharepoint URL from tbl_Lookup
sSharePointURL = ELookup("SharePointFolderURLPath", "tbl_Lookup")

'Get path of file to publish
sFilePath = CurrentProject.Path & "\Published"

' Get the filename
sFileNameWithPath = sFilePath & "\" & ELookup("FrontEndFileNameAccdb", "tbl_Lookup")

'Array length identification
lngFileLength = FileLen(sFileNameWithPath) - 1

'Reinitialize the byte array
ReDim binaryByte(lngFileLength)

'Open file binary consumption
Open sFileNameWithPath For Binary As #1
Get #1, , binaryByte
Close #1

' Convert to variant to upload.
binaryByteData = binaryByte

'Destination URL
sDestinationURL = sSharePointURL & ELookup("FrontEndFileNameAccdb", "tbl_Lookup")

' Upload the data to the server, false means synchronous.
LobjXML.Open "PUT", sDestinationURL, False

    

  Set LobjXML = Nothing
  Set objFSO = Nothing

标签： vbasharepoint