habt ihr eine Idee wie es über einen CommandButton lösen könnte eine Datei auf SharePoint 1. auschecken 2. speichern und 3. wieder einchecken.
Private Sub CommandButton18_Click()
sWKbserver = "Daten.xlsm"
sFormula = "https://share.gm.com/sites/MEBUppers/MEBSDEX/Gr_Lipp/Documents/" & sWKbserver
If Workbooks.CanCheckOut(Filename:=sFormula) = True Then
MsgBox ("1: " & Workbooks.CanCheckOut(Filename:=sFormula))
Workbooks.CheckOut sFormula
End If
ActiveWorkbook.Save
If Workbooks(sWKbserver).CanCheckIn = True Then
MsgBox ("2: " & Workbooks(sWKbserver).CanCheckIn)
If Workbooks(sWKbserver).CanCheckIn = True Then
Workbooks(sWKbserver).CheckIn
MsgBox sWKbserver & " has been checked in."
Else
MsgBox "This file cannot be checked in " & _
"at this time. Please try again later."
End If
End If
End Sub
Um eine Excel-Datei auf SharePoint auszuchecken, zu speichern und anschließend wieder einzuchecken, kannst du einen CommandButton in deiner Excel-Anwendung verwenden. Befolge diese Schritte:
Öffne dein Excel-Dokument und wechsle in den VBA-Editor (Alt + F11).
Füge einen neuen CommandButton in dein Arbeitsblatt ein.
Kopiere den folgenden VBA-Code in das Code-Fenster des CommandButtons:
Private Sub CommandButton18_Click()
Dim sWKbserver As String
Dim sFormula As String
sWKbserver = "Daten.xlsm"
sFormula = "https://share.gm.com/sites/MEBUppers/MEBSDEX/Gr_Lipp/Documents/" & sWKbserver
If Workbooks.CanCheckOut(Filename:=sFormula) = True Then
MsgBox ("1: " & Workbooks.CanCheckOut(Filename:=sFormula))
Workbooks.CheckOut sFormula
End If
ActiveWorkbook.Save
If Workbooks(sWKbserver).CanCheckIn = True Then
MsgBox ("2: " & Workbooks(sWKbserver).CanCheckIn)
If Workbooks(sWKbserver).CanCheckIn = True Then
Workbooks(sWKbserver).CheckIn
MsgBox sWKbserver & " has been checked in."
Else
MsgBox "This file cannot be checked in " & _
"at this time. Please try again later."
End If
End If
End Sub
Schließe den VBA-Editor und kehre zu deinem Excel-Dokument zurück.
Klicke auf den CommandButton, um die Datei auszuchecken, zu speichern und wieder einzuchecken.
Fehler: "Kann nur eine Datei mit gleichem Namen öffnen"
Fehler: "Diese Datei kann nicht eingecheckt werden"
Wenn du keine VBA-Lösung verwenden möchtest, kannst du auch die Funktionalitäten in SharePoint direkt nutzen:
Diese Methode erfordert keine Programmierung, ist aber weniger automatisiert.
Beispiel 1: Einfaches Auschecken und Einchecken
Beispiel 2: Bedingungen für das Auschecken
Verwende Error Handling: Ergänze deinen VBA-Code mit Fehlerbehandlungsroutinen, um unerwartete Probleme zu umgehen.
Automatisiere regelmäßig: Wenn du regelmäßig mit SharePoint arbeitest, könnte es sinnvoll sein, mehrere CommandButtons für verschiedene Aufgaben zu erstellen, z.B. für das Auschecken und Einchecken von verschiedenen Dateien.
SharePoint-Integration: Wenn du oft mit SharePoint arbeitest, erwäge die Verwendung von SharePoint-Add-Ins, die speziell für Excel entwickelt wurden.
1. Wie kann ich SharePoint auschecken deaktivieren? Du kannst die Einstellung in SharePoint ändern, indem du die Dokumentenbibliothek verwaltest und die Option "Auschecken erforderlich" deaktivierst.
2. Was passiert, wenn ich eine Datei nicht einchecke? Die Datei bleibt im ausgecheckten Zustand und andere Benutzer können nicht auf die aktuelle Version zugreifen, bis du sie eincheckst. Es ist wichtig, die Datei regelmäßig einzuchecken, um die Zusammenarbeit zu ermöglichen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen