Office: (Office 2016) Ordner in einem Unterverzeichnis auf SharePoint anlegen

Maddy55 · 22. November 2020

Hallo,
seit neuestem arbeiten wir in der Firma nur noch mit Sharepoint und Teams.
Mit einem Tool erzeuge ich wöchentliche Berichte, die dann in einem Unterordner abgelegt werden.
Dieser Unterordner hat dann den Namen des aktuellem Datums.

Auf unseren bisherigen Netzlaufwerken gab es nie Problem. Mit dem absoluten Pfad konnte ich dabei immer fehlerfrei arbeiten.

Das ist jetzt anders. Immerhin habe ich es nach langem googlen im Netz und in Boards herrausgefunden, wie ich Dateien über VBA ablegen kann.
Wenn ich den folgenden Pfad in meinem Tool einer Variablen zuweise legt er mir auch in dem Ordner "01_WochenBerichte" die entsprechenden Dateien ab.

Code:

https://group.sharepoint.com/sites/AgenturH/Shared Documents/General/06 Auswertungen/01_Woechentliche_Listen_und_Verteilerlisten/01_WochenBerichte
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wegen der Übersichtlichkeit, hat das Tool aber immer erst einen Ordner mit dem aktuellen Datum erzeugt. Und hier klemmt es jetzt.
Egal was ich versuche, ich bekomme immer nur die Fehlermeldung "Pfad nicht gefunden". Obwohl das ablegen von dateien ja klappt.

Also habe ich den Befehl mkdir erst einmal zur Seite gelegt.

Nun bin ich auf folgenden Code im Netz gestossen.
Scheinbar wir hier ein Laufwerk angelegt auf dem dann ein Orner erstellt wird.
Das klappt auch, aber nur einmal!

Starte ich den Code erneut, passiert nichts mehr, auch keine Fehlermeldung.

Wäre toll wenn mir jemand helfen könnte, eventuell auch mit einer anderen Lösung auf Sharepoint in einem Unterverzeichnis einen Ordner anzulegen.

Code:

Option Explicit
Sub sharepoint_neuer_ordner()
Dim objNetzwerk As Object
Dim strPath As String, sNeuerOrdner As String
Set objNetzwerk = CreateObject("WScript.Network")
strPath = "https://group.sharepoint.com/sites/AgenturH/Shared Documents/General/06 Auswertungen/01_Woechentliche_Listen_und_Verteilerlisten/01_WochenBerichte"
sNeuerOrdner = "test" 'anpassen oder Me.TextBox1.Value
If Not CreateObject("Scripting.FileSystemObject").DriveExists("B") Then
On Error Resume Next
'sharepoint als Laufwerk "B:" verbinden
objNetzwerk.MapNetworkDrive "B:", strPath
If Err.Number 0 Then
MsgBox Err.Description, vbCritical, "Fehler bei Verbindung!"
Else
'Ordner erstellen
If Dir("B:" & sNeuerOrdner, vbDirectory) = "" Then MkDir "B:" & sNeuerOrdner
'sharepoint trennen
objNetzwerk.RemoveNetworkDrive "B:"
End If
End If
Set objNetzwerk = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

_anton_ · 24. November 2020

Hallo Maddy55,

Das klappt auch, aber nur einmal!

Starte ich den Code erneut, passiert nichts mehr, auch keine Fehlermeldung.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

welchen Wert hat die Variable sNeuerOrdner bei dem erneuten Start?

mfg Anton

Maddy55 · 12. Januar 2021

von _anton_

Hallo Maddy55,

welchen Wert hat die Variable sNeuerOrdner bei dem erneuten Start?

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

Also wenn ich msgbox sNeuerOrdner anz ans Ende stelle, vor End Sub bringt er mir "test".
Setze ich msgbox sNeuerOrdner aber weiter nach vorn, also vor "sharepoint trennen" kommt noch nicht einmal die MessageBox.

Er muss also vorher irgendwo aus den Code springen.

UPDATE:
Ich hatte jetzt mal einiges ausgeklammert bezüglich des mappens von Laufwerk B
Dann ging es wieder, einmal.
Nun wieder alles ausgeklammerte aktivieren und geht auch wieder.

Scheinbar trennt er nicht sauber das erstellte netzwerk Code:

objNetzwerk.RemoveNetworkDrive "B:"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

_anton_ · 25. November 2020

Hallo Maddy55,

vielleicht reicht es schon das Trennen so zu ändern (ungetestet):
Code:

'sharepoint trennen
ChDrive ("c:\")
objNetzwerk.RemoveNetworkDrive "b:"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg Anton

Maddy55 · 12. Januar 2021

von _anton_

Hallo Maddy55,

vielleicht reicht es schon das Trennen so zu ändern (ungetestet):
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

'sharepoint trennen
ChDrive ("c:")
objNetzwerk.RemoveNetworkDrive "b:"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg Anton

Hallo Anton,

habe ich getestet. Aber das gleiche Ergebnis. Einmal geht es, dann nicht mehr.
Anhand der beigefügten Bilder kannst Du sehen welche Fehlermeldung jetzt kommt und wo er hängen bleibt beim 2.Durchlauf.

_anton_ · 26. November 2020

Hallo Maddy55,

nur eine Vermutung, vielleicht ist das ein Zeitproblem?
Du erstellst mit MkDir einen Ordner irgendwo im Netz und die Zeit zwischen dem Erstellen
und dem Trennen reicht nicht aus, um die Verbindung sauber zu trennen?
Wenn dem so ist, könnte man eine Pause dazwischen setzen, etwa so(ungetestet):
Code:

'sharepoint trennen
Application.Wait(Now + TimeValue("0:00:10"))'10 Sekunden Pause
ChDrive ("c:\")
objNetzwerk.RemoveNetworkDrive "b:"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg Anton

Maddy55 · 12. Januar 2021

von _anton_

Hallo Maddy55,

nur eine Vermutung, vielleicht ist das ein Zeitproblem?
Du erstellst mit MkDir einen Ordner irgendwo im Netz und die Zeit zwischen dem Erstellen
und dem Trennen reicht nicht aus, um die Verbindung sauber zu trennen?
Wenn dem so ist, könnte man eine Pause dazwischen setzen, etwa so(ungetestet):
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

'sharepoint trennen
Application.Wait(Now + TimeValue("0:00:10"))'10 Sekunden Pause
ChDrive ("c:")
objNetzwerk.RemoveNetworkDrive "b:"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg Anton

Hallo Anton,

werde ich morgen in der Firma mal testen.
mfg
Maddy

Maddy55 · 12. Januar 2021

von Maddy55

Hallo Anton,

werde ich morgen in der Firma mal testen.
mfg
Maddy
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So meine Rückmeldung:
Ich habe heute die Zeile mit der Pause eingebaut und auch größere pausen eingestellt (bis zu 2min.)
Leider hat auch dies nicht geklappt.
Gleiche Problem wie schon vorher

_anton_ · 28. November 2020

Hallo Maddy,

probier es hiermit: Code:

Option Explicit
Sub sharepoint_neuer_ordner()
Dim objNetzwerk As Object, fso As Object
Dim strPath As String, sNeuerOrdner As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set objNetzwerk = CreateObject("WScript.Network")
strPath = "https://group.sharepoint.com/sites/AgenturH/Shared Documents/General/06 Auswertungen/01_Woechentliche_Listen_und_Verteilerlisten/01_WochenBerichte" 'anpassen
sNeuerOrdner = Format(Date, "dd_mm_yyyy") 'anpassen
If Not fso.DriveExists("B") Then
On Error Resume Next
'sharepoint als Laufwerk "B:" verbinden
objNetzwerk.MapNetworkDrive "B:", strPath
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "Fehler bei Verbindung!"
Err.Clear
Else
'Ordner erstellen
If Not fso.folderexists("B:\" & sNeuerOrdner) Then fso.createfolder ("B:\" & sNeuerOrdner)
Call trennen
End If
Else
Call trennen
End If
Set fso = Nothing
Set objNetzwerk = Nothing
End Sub
Function trennen()
Dim win As Object
'Explorerfenster, falls geöffnet, schliessen
For Each win In CreateObject("Shell.Application").Windows
If InStr(1, UCase(win.FullName), "EXPLORER.EXE") > 0 Then
If InStr(1, UCase(win.LocationURL), "B:") <> 0 Then win.Quit
End If
Next
'sharepoint trennen
Application.Wait (Now + TimeValue("0:00:02")) '2 Sekunden Pause
CreateObject("WScript.Network").RemoveNetworkDrive "B:"
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg Anton

Maddy55 · 12. Januar 2021

von _anton_

Hallo Maddy,

probier es hiermit: Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Option Explicit
Sub sharepoint_neuer_ordner()
Dim objNetzwerk As Object, fso As Object
Dim strPath As String, sNeuerOrdner As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set objNetzwerk = CreateObject("WScript.Network")
strPath = "https://group.sharepoint.com/sites/AgenturH/Shared Documents/General/06 Auswertungen/01_Woechentliche_Listen_und_Verteilerlisten/01_WochenBerichte" 'anpassen
sNeuerOrdner = Format(Date, "dd_mm_yyyy") 'anpassen
If Not fso.DriveExists("B") Then
On Error Resume Next
'sharepoint als Laufwerk "B:" verbinden
objNetzwerk.MapNetworkDrive "B:", strPath
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "Fehler bei Verbindung!"
Err.Clear
Else
'Ordner erstellen
If Not fso.folderexists("B:" & sNeuerOrdner) Then fso.createfolder ("B:" & sNeuerOrdner)
Call trennen
End If
Else
Call trennen
End If
Set fso = Nothing
Set objNetzwerk = Nothing
End Sub
Function trennen()
Dim win As Object
'Explorerfenster, falls geöffnet, schliessen
For Each win In CreateObject("Shell.Application").Windows
If InStr(1, UCase(win.FullName), "EXPLORER.EXE") > 0 Then
If InStr(1, UCase(win.LocationURL), "B:") <> 0 Then win.Quit
End If
Next
'sharepoint trennen
Application.Wait (Now + TimeValue("0:00:02")) '2 Sekunden Pause
CreateObject("WScript.Network").RemoveNetworkDrive "B:"
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg Anton

Hi Anton,

danke für Deine Hilfe.
Werde ich am Montag in der Firma direkt ausprobieren und Dir natürlich Rückmeldung geben.

Griß
Maddy

Maddy55 · 29. November 2020

Hi Anton,

irgend etwas stimmt nicht mit dem Code.
Wenn ich ihn in ein Modul einfüge wird er mir in Rot dargestellt.
Mache ich da etwas verkehrt?

Ich habe Dir mal eine Arbeitsmappe mit dem Code hochgeladen.

Gruß

_anton_ · 29. November 2020

Hallo Maddy,
Code:

Option Explicit
Sub sharepoint_neuer_ordner()
Dim objNetzwerk As Object, fso As Object
Dim strPath As String, sNeuerOrdner As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set objNetzwerk = CreateObject("WScript.Network")
strPath = "https://group.sharepoint.com/sites/AgenturH/Shared Documents/General/06 Auswertungen/01_Woechentliche_Listen_und_Verteilerlisten/01_WochenBerichte" 'anpassen
sNeuerOrdner = Format(Date, "dd_mm_yyyy") 'anpassen
If Not fso.DriveExists("B") Then
On Error Resume Next
'sharepoint als Laufwerk "B:" verbinden
objNetzwerk.MapNetworkDrive "B:", strPath
If Err.Number 0 Then
MsgBox Err.Description, vbCritical, "Fehler bei Verbindung!"
Err.Clear
Else
'Ordner erstellen
If Not fso.folderexists("B:\" & sNeuerOrdner) Then fso.createfolder ("B:\" & sNeuerOrdner)
Call trennen
End If
Else
Call trennen
End If
Set fso = Nothing
Set objNetzwerk = Nothing
End Sub
Function trennen()
Dim win As Object
'Explorerfenster, falls geöffnet, schliessen
For Each win In CreateObject("Shell.Application").Windows
If InStr(1, UCase(win.FullName), "EXPLORER.EXE") > 0 Then
If InStr(1, UCase(win.LocationURL), "B:") 0 Then win.Quit
End If
Next
'sharepoint trennen
Application.Wait (Now + TimeValue("0:00:02")) '2 Sekunden Pause
CreateObject("WScript.Network").RemoveNetworkDrive "B:"
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg Anton

Maddy55 · 29. November 2020

Jetzt sieht es gut aus mit dem Code . Woran lag es?
Dann werde ich ihn morgen im Laufe des Vormittags in der Firma testen
Gruß Maddy

Maddy55 · 12. Januar 2021

von Maddy55

Jetzt sieht es gut aus mit dem Code . Woran lag es?
Dann werde ich ihn morgen im Laufe des Vormittags in der Firma testen
Gruß Maddy
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Anton,

Dein Code funktioniert jetzt.
Auch beim 2. ausführen legt er das neue Verzeichnis an, allerdings dauert dies rund 30sec.

ich dachte erst er macht doch wieder nichts beim 2.mal ausführen, aber irgendwann nach 1/2 Minute war dann doch das erstellte Directory da.

In meinem Tool läuft es ja so, das zuerst das Verzeichnis im SharePoint angelegt wird und anschließend wird es gefüllt mit Excel Dateien, die die Berichte enthalten.
Das bedeutet, ich muss irgendwo im Programmcode vor ablegen der Berichte eine Pause einbauen, bis das Verzeichnis auch wirklich erzeugt ist.

Aber ansonsten TOP
Vielen vielen Dank

Office: (Office 2016) Ordner in einem Unterverzeichnis auf SharePoint anlegen

Ordner in einem Unterverzeichnis auf SharePoint anlegen

Ordner in einem Unterverzeichnis auf SharePoint anlegen

Ordner in einem Unterverzeichnis auf SharePoint anlegen

Ordner in einem Unterverzeichnis auf SharePoint anlegen

Ordner in einem Unterverzeichnis auf SharePoint anlegen

Ordner in einem Unterverzeichnis auf SharePoint anlegen - Similar Threads - Ordner Unterverzeichnis SharePoint

Gelöschte Elemente, Elemente in diesem Ordner werden in 30 Tagen gelöscht

eMail aus Posteingang in anderen Ordner verschieben

Gelöscht-Ordner nach Datum leeren

[OT] GMail – Speicherplatz trotz gelöschter Mails belegt („Alle E-Mails“-Ordner)

Outlook synchronisiert Gmail-Ordner nicht vollständig (Office 2021 zu M365)

Outlook - Ordner gesendete Elemente wechseln

Öffentlicher Ordner Kontakte aktualisieren