Microsoft Excel

Herbers Excel/VBA-Archiv

Laufzeitfehler '52'

Betrifft: Laufzeitfehler '52' von: Celuldor
Geschrieben am: 11.10.2020 20:08:02

Hallo ich bekomme einen Laufzeitfehler und mir wird die Zeile :

"strDateiName = Dir$("https://www.geheime_adresse.de/*.*")"

markiert.


hier mein Makro(anonymisiert):


Sub DateinamenAuflisten()
	Dim strDateiName As String, strDateienListe As String, i As Integer

strDateiName = Dir$("https://www.geheime_adresse.de/*.*")
	Do While strDateiName <> ""
	    strDateienListe = strDateienListe & ", " & strDateiName
	    i = i + 1
	    strDateiName = Dir$()
	Loop
	strDateienListe = Right(strDateienListe, Len(strDateienListe) - 2)
        Range("B1").Value = strDateienListe 
End Sub


Laufzeitfehler '52':

Dateiname oder -nummer falsch


wo ist mein Fehler?

und wichtiger, wie behebe ich diesen? :-)

Betrifft: AW: Laufzeitfehler '52'
von: Celuldor
Geschrieben am: 11.10.2020 20:20:17

achja, bei der URL handelt es sich im ein Cloud-Ordner mit Login,
in den "Datenquelleneinstellungen" habe ich diesen Login für diese URL auch hinterlegt

Betrifft: AW: Laufzeitfehler '52'
von: Daniel
Geschrieben am: 11.10.2020 21:48:14

Ich vermute mal, dass die DIR-Funktion noch ein "echtes" Laufwerk baucht und keine WWW-URL.
Gruß Daniel

Betrifft: AW: Laufzeitfehler '52'
von: Celuldor
Geschrieben am: 11.10.2020 23:00:04

ok, und wie heißt die Funktion die ich brauche um alle Dateien in einem Cloud Ordner aufzulisten?