Hello Nihhal,
I have a code which i used in excel vba to do this task, hope this will help.
Sub Copy_Jugal_Data()
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
On Error GoTo Jugal_Help
FromPath = "give excel path"
ToPath = "give share point path"
If Right(FromPath, 1) = "\" Then
FromPath = Left(FromPath, Len(FromPath) - 1)
End If
If Right(ToPath, 1) = "\" Then
ToPath = Left(ToPath, Len(ToPath) - 1)
End If
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " Path doesn't exist"
Exit Sub
End If
FSO.CopyFolder Source:=FromPath, Destination:=ToPath
MsgBox " Mr. Jugal you can find the files in " & ToPath
Jugal_Help:
Masgbox "Error"
End Sub
If you want to save any activeworkbook than you can use below code.
Sub Save_tosharepoint()
Dim FileName, FilePath As String
Let FilePath = "give share point path"
Let FileName = "give filename"
ActiveWorkbook.SaveAs FileName:=thepath & thefile _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
