Excel Forum

Code: Select all

Private Sub CommandButton12_Click()

Dim SharepointAddress As String
Dim LocalAddress As String
Dim objNet As Object
Dim FS As Object
SharepointAddress = "https://sharepoint.com/teams/DCC"
LocalAddress = "Textbox.87.text"
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

Dim ssheet As Worksheet
    Set ssheet = ThisWorkbook.Sheets("2022 DAR ")
    nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
   
   Sheets("2022 DAR LOCK").Cells(nr, 1) = UserForm1.TextBox9.Value
   ssheet.Cells(nr, 77) = "A:)"

End Sub