Um einen Ordner in SharePoint mithilfe von VBA zu erstellen, kannst du die folgenden Schritte befolgen:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul ein, indem du mit der rechten Maustaste auf "VBAProject" klickst und "Einfügen" > "Modul" auswählst.
Kopiere den folgenden VBA-Code in das Modul:
Sub CreateSharePointFolder()
Dim SharePointSite As String
Dim FolderName As String
Dim objHTTP As Object
Dim URL As String
SharePointSite = "https://deinsharepointsiteurl/" ' Ersetze mit deiner SharePoint-URL
FolderName = "NeuerOrdner" ' Name des neuen Ordners
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
URL = SharePointSite & "_api/web/folders"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "Accept", "application/json;odata=verbose"
objHTTP.setRequestHeader "Content-Type", "application/json;odata=verbose"
objHTTP.setRequestHeader "X-RequestDigest", GetRequestDigest(SharePointSite)
objHTTP.send "{'__metadata':{'type':'SP.Folder'},'ServerRelativeUrl':'" & SharePointSite & FolderName & "'}"
If objHTTP.Status = 201 Then
MsgBox "Ordner erfolgreich erstellt!"
Else
MsgBox "Fehler beim Erstellen des Ordners: " & objHTTP.responseText
End If
End Sub
Function GetRequestDigest(SharePointSite As String) As String
Dim objHTTP As Object
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
objHTTP.Open "POST", SharePointSite & "_api/contextinfo", False
objHTTP.setRequestHeader "Accept", "application/json;odata=verbose"
objHTTP.send
GetRequestDigest = JsonConverter.ParseJson(objHTTP.responseText)("d")("GetContextWebInformation")("FormDigestValue")
End FunctionPasse die URL und den FolderName an, um deinen gewünschten Ordner zu erstellen.
Schließe den VBA-Editor und führe das Makro aus, um den Ordner zu erstellen.
Fehler: "Zugriff verweigert"
Fehler: "Ordner bereits vorhanden"
Fehler: "Ungültige URL"
Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch den folgenden Ansatz ausprobieren:
Hier sind einige praktische Beispiele, wie du den VBA-Code anpassen kannst:
Ordner für Projekte erstellen:
Ändere den FolderName auf "Projekte" oder "Projekt_X".
Ordner mit Datum erstellen:
FolderName = "Projekt_" & Format(Date, "yyyy-mm-dd")1. Was ist der Unterschied zwischen SharePoint und Shairpoint? SharePoint ist die korrekte Schreibweise und ein von Microsoft entwickeltes Produkt zur Zusammenarbeit. "Shairpoint" scheint ein Schreibfehler zu sein.
2. Welche Excel-Version benötige ich für die Verwendung von VBA? Du kannst VBA in Excel 2010 und neueren Versionen verwenden, um mit SharePoint zu interagieren.
3. Ist es notwendig, den JSON-Converter zu verwenden? Ja, der JSON-Converter wird benötigt, um die Antwort von SharePoint im JSON-Format zu verarbeiten. Du kannst ihn von GitHub herunterladen und in dein Projekt einfügen.