Office: WebDAV Ordnerstruktur in Excel exportieren

Habe in meiner Netzwerkumgebung folgenden WebDAV Ordner:

https://:webdav.adresse.de/blub1/blub2/blub3/

Der Ordner „blub3“ enthält nun einige Ordner, diese Struktur möchte ich per Makro in Excel exportieren. Habe nun schon einiges versucht, das Makro läuft lokal ohne Probleme, aber wie kann ich nun die WebDAV Adresse nutzen.

Mit der Kommandaozeile und dem „dir“ oder „tree“ Befehlen wird es auch nicht gehen, oder?


Zusammenfassung:

Ich möchte einfach die Ordnerstruktur eines WebDAV Ordners in Excel exportieren. Wie ist eigentlich egal.

 

Hallo Spirit,

nachfolgendes Makro dient zum Downloaden einzelner Dateien von einem URL in eine Datei mit Pfad auf der Festplatte; für ganze Verzeichnisse und Unterverzeichnisse habe ich nichts.

1) Das Makro einfach in ein allgem. Codemodul speichern.

2) In einem Arbeitsblatt 2 Zellen mit Namen versehen:
eine Zelle mit Name "URL" und eine 2. Zelle mit Namen "Dateiname"
In die URL-Zelle schreibst Du Deinen URL und in die Dateiname-Zelle die Datei mit vollständigem Pfad.
Dann startest Du das Makro; eine Messagebox zeigt Erfolg bzw. Misserfolg der Aktion am Ende an.

Code:

'
'Makro dient zum Downloaden von einem URL in eine Datei.
'
Private Declare Function URL_DownloadTo_File Lib "urlmon" Alias "URLDownloadToFileA" _
   (ByVal pCaller As Long, ByVal szURL As String, ByVal szFilename As String, _
    dwReserved As Long, ByVal lpfnCB As Long) As Long
    '
'
'
Sub Download_File_from_URL()
  Dim Datei$, URL$, ErrCode&, E$, Pfad$, Dateiname$
  
  URL$ = Range("URL").Value
  Datei$ = Range("Dateiname").Value
  
  ErrCode& = URL_DownloadTo_File(0, URL$, Datei$, 0, 0)
  
  If ErrCode& = 0 Then
    MsgBox Prompt:="Donwload war erfolgreich: " & vbCrLf & _
                   "- Quelle: " & vbTab & URL$ & vbCrLf & _
                   "- Ziel:   " & vbTab & Datei$
  Else
    Select Case ErrCode&
      Case &H80004004: E$ = "Mit Fehler abgebrochen."
      Case &H800C0001: E$ = "Zieldatei existiert nicht."
      Case &H800C0002: E$ = "Fehlerhafter URL"
      Case &H800C0003: E$ = "Keine Session vorhanden."
      Case &H800C0004: E$ = "'Connect' konnte nicht aufgebaut werden."
      Case &H800C0005: E$ = "Die Ressource konnte nicht gefunden werden."
      Case &H800C0006: E$ = "Das gesuchte Objekt wurde nicht gefunden."
      Case &H800C0007: E$ = "Die Daten sind nicht verfügbar."
      Case &H800C0008: E$ = "Beim Download ist ein Fehler aufgetreten."
      Case &H800C0009: E$ = "Eine Authentifizierung ist erforderlich."
      Case &H800C000A: E$ = "Fehlerhaftes Media-Format."
      Case &H800C000B: E$ = "Timeout bei der Verbindungsherstellung."
      Case &H800C000C: E$ = "Fehlerhafte Anfrage."
      Case &H800C000D: E$ = "Unbekanntes Protokoll."
      Case &H800C000E: E$ = "Sicherheitsproblem."
      Case &H800C000F: E$ = "Die Daten konnten nicht geladen werden."
      Case &H800C0010: E$ = "Zugriffsobjekt kann nicht erstellt werden."
      Case &H800C0014: E$ = "Weiterleitung schlug fehl."
      Case &H800C0015: E$ = "Weiterleitung zum Verzeichnis."
      Case &H800C0016: E$ = "Lock-Anfrage konnte nicht ausgeführt werden."
      Case Else
        E$ = "Sonstiger Fehler."
    End Select
    MsgBox Prompt:="Download war nicht erfolgreich." & vbCrLf & vbCrLf & _
                   "Grund: " & E$
  End If
End Sub