Hi @Narayan Singh ,
VBA is not supported in the Microsoft Q&A community, so I can't give you professional help.
I found a case related to upload document to sharepoint using VBA for you, which may be helpful to you, please check:
https://stackoverflow.com/questions/58439294/upload-file-to-sharepoint-through-vba
Sub UploadToSharepoint()
Dim SharepointAddress As String
Dim LocalAddress As String
Dim FS As Object
SharepointAddress = "\\share.deere.com\teams\sm_at_sd\uppcaptracking\Test"
LocalAddress = "c:\blah\blah2\MyWorkFiletoCopy.xlsx"
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FileExists(LocalAddress) Then
FS.CopyFile LocalAddress, SharepointAddress
End If
End Sub
Note: Microsoft is providing this information as a convenience to you. The sites are not controlled by Microsoft. Microsoft cannot make any representations regarding the quality, safety, or suitability of any software or information found there. Please make sure that you completely understand the risk before retrieving any suggestions from the above link.
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.