Copy a file from one sharepoint folder to another using VBA Excel

therealorry 0

Hi.

I am trying to copy an excel file from one sharepoint folder to another and cannot find any information that actually helps me. There is so much conflicting information available.

Can you tell me the most efficient and effective, standard way of acheiving this?

Deleted

This comment has been deleted due to a violation of our Code of Conduct. The comment was manually reported or identified through automated detection before action was taken. Please refer to our Code of Conduct for more information.
Deleted

This comment has been deleted due to a violation of our Code of Conduct. The comment was manually reported or identified through automated detection before action was taken. Please refer to our Code of Conduct for more information.

therealorry 0

I wrote the following code with the help of Copilot:

Public Function GetSharepointDigest(strUserName As String, strPassword As String) As String

Dim objHTTP As Object

Dim strUrl As String

Dim strResponse As String

Dim xmlDoc As Object

Dim strFormDigestValue As String

Dim xmlNode As Object



' Initialize variables

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

strUrl = "https://###########.sharepoint.com/_api/contextinfo"



' Create and send the HTTP request

objHTTP.Open "POST", strUrl, False, strUserName, strPassword

objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

objHTTP.send ""



' Get the response

strResponse = objHTTP.responseText



' Load the response into an XML document

Set xmlDoc = CreateObject("MSXML2.DOMDocument")

xmlDoc.async = False

xmlDoc.LoadXML (strResponse)



' Check if the response loaded correctly

If xmlDoc.parseError.ErrorCode <> 0 Then

    MsgBox "Error in XML: " & xmlDoc.parseError.reason

    Exit Function

End If



' Extract the FormDigestValue safely

On Error Resume Next

Set xmlNode = xmlDoc.getElementsByTagName("FormDigestValue")(0)

On Error GoTo 0

If Not xmlNode Is Nothing Then

    strFormDigestValue = xmlNode.Text

    MsgBox "FormDigestValue: " & strFormDigestValue

Else

    MsgBox "FormDigestValue not found in the response."

    Debug.Print strResponse ' Print the response to the Immediate window for debugging

End If



' Extract the FormDigestValue safely

On Error Resume Next

strFormDigestValue = xmlDoc.SelectSingleNode("//d:GetContextWebInformation/d:FormDigestValue").Text

On Error GoTo 0



' Check if the FormDigestValue was successfully retrieved

If Len(strFormDigestValue) > 0 Then

    MsgBox "FormDigestValue: " & strFormDigestValue

Else

    MsgBox "FormDigestValue not found in the response."

End If



GetSharepointDigest = strFormDigestValue

End Function

All I get is an empty response.

Can this even be done or am I on a wild goose chase?

1 answer

Xyza Xue_MSFT 25,731 Reputation points Microsoft Vendor

2024-11-18T06:17:12.64+00:00

Hi @therealorry ,

Since this question is more related to Office development, for better user experience, we will add “Office development” tag.

This topic is currently not supported in the Q&A forums.

If the answer is helpful, please click "Accept Answer" and kindly upvote it. If you have extra questions about this answer, please click "Comment".

Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.
Please sign in to rate this answer.

0 comments No comments
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.

Share via

Copy a file from one sharepoint folder to another using VBA Excel

1 answer

Your answer