Office: Sharepoint aus- bzw. einchecken geht nicht

hugo64874 · 9. April 2019

Hallo zusammen,

ich würde gerne eine Datei ins Sharepoint kopieren und dafür muss sie natürlich auch ausgecheckt sein. Leider funktioniert mein Makro nicht, er checkt die Datei nicht aus und lädt auch die Datei nicht hoch.
Hier der Code:
Code:

Sub Sharepoint()
' Sharepoint Makro
'
Dim docCheckOut As String
docCheckOut = "https://Organisation/Reporting/Statistik/Auswertung.xlsx"

On Error GoTo ErrorCode

Check = Workbooks.CanCheckOut(docCheckOut)
CheckFile = True
Workbooks.CheckOut docCheckOut

ExitCode:
On Error Resume Next
Exit Sub
ErrorCode:
CheckFile = False
Resume ExitCode
Workbooks.Open FileName:="Auswertung.xlsx"

Sheets("Werte").Activate

With ActiveWorkbook
.BuiltinDocumentProperties("Title").Value = "Auswertung"
End With

ActiveWorkbook.SaveAs FileName:="https://Organisation/Reporting/Statistik/Auswertung.xlsx", FileFormat:=xlNormal, ReadOnlyRecommended:=False, CreateBackup:=False

Cells(1, 1).Activate

ActiveWorkbook.CheckIn Comments:="Auswertung"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Noch als Hinweis, wenn ich nur das Einchecken probiere, funktioniert es auch nur wenn die Datei nicht .xlsx als Endung sondern .xls hat *rolleyes.gif*
Schon mal besten Dank im voraus.
Beste Grüße Hugo

:)

hugo64874 · 11. April 2019

Hallo zusammen,

hat sich erledigt. Man darf nur nicht FileFormat:=xlNormal sondern FileFormat:=xlOpenXMLWorkbook für das einchecken benutzen und wegen dem auschecken braucht man folgenden Code:
Code:

Sub Sharepointout()
'
' Sharepointout Makro
' Falls es schon eine Datei Auswertung im Sharepoint gibt, diese auschecken
'
Dim docCheckOut As String
docCheckOut = "https://Organisation/Reporting/Auswertung.xlsx"
Call UseCheckOut(docCheckOut)
End Sub

Sub UseCheckOut(docCheckOut As String)

' Determine if workbook can be checked out.
If Workbooks.CanCheckOut(docCheckOut) = True Then
Workbooks.CheckOut docCheckOut
Else
MsgBox "Die Datei konnte leider nicht ausgecheckt werden"
End If

'
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So lässt es sich lösen.

Grüße Hugo

Office: Sharepoint aus- bzw. einchecken geht nicht

Sharepoint aus- bzw. einchecken geht nicht

Sharepoint aus- bzw. einchecken geht nicht

Sharepoint aus- bzw. einchecken geht nicht - Similar Threads - Sharepoint einchecken

Daten-Import inkl. Primärschlüssel

Eingebundene Telefonlisten aus dem Sharepoint sind in der neuen Ansicht nicht sichtbar

Aufrufen Datei aus SharePoint per VBA

Sharepoint Version im Dokument anzeigen

Sharepoint Ordner auslesen

Access Abfrage mit SharePoint Liste synchronisieren

Variable in Pfad zu externem Inhalt (Sharepoint)