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

Code: Select all

Private Sub CommandButton12_Click()
 
Dim SharepointAddress As String
    Dim LocalAddress As String
    Dim FS As Object
    ' https://[company].sharepoint.com/teams/DCC/Shared%20Documents/Registration/Document%20for%20registration

    SharepointAddress = "\\sharepoint.com\teams\DCC\Shared%20Documents\Registration"

    LocalAddress = Application.GetOpenFilename("All Files (*.*), *.*")

    Set FS = CreateObject("Scripting.FileSystemObject")

    If FS.FileExists(LocalAddress) Then
        FS.CopyFile LocalAddress, SharepointAddress
    End If

End Sub

Code: Select all

Private Sub CommandButton12_Click()
    Dim SharepointAddress As String
    Dim LocalAddress As String
    Dim FS As Object
    ' https://[company].sharepoint.com/teams/DCC/Shared%20Documents/Registration/Document%20for%20registration

    SharepointAddress = "\\sharepoint.com\teams\DCC\Shared%20Documents\Registration"

    LocalAddress = Application.GetOpenFilename("All Files (*.*), *.*")

    Set FS = CreateObject("Scripting.FileSystemObject")

    If FS.FileExists(LocalAddress) Then
        FS.CopyFile LocalAddress, SharepointAddress & "\" & VBA.Split(LocalAddress, "\")(UBound(VBA.Split(LocalAddress, "\")))
    End If
End Sub