Hi zusammen
Ich möchte mit einem einfach Button die Datei aus dem Sharepoint auschecken und weiter bearbeiten. Im besten Fall zugleich noch abspeichern und so weiter bearbeiten.
Sub SaveCheckOut()
'
' SaveCheckOut Makro
'
ActiveWorkbook.CheckOut
Dim sDatei As String, sZielDatei As String
Dim Pos
sPfad = ActiveWorkbook.Path & "\"
sDatei = ActiveWorkbook.Name
Pos = InStrRev(sDatei, ".", , vbTextCompare)
sZielDatei = sPfad & Mid(sDatei, 1, Pos - 1)
sZielDatei = sZielDatei
ActiveWorkbook.SaveAs Filename:=sZielDatei & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'
End Sub
Vielen Dank für eure kompetente Unterstützung!
|