Unterordner auslesen

Moderator: ModerationP

Re: Unterordner auslesen

Beitragvon snb » 09. Sep 2021, 09:30

Hast du je versucht ?

Code: Alles auswählen
Sub M_snb()
   msgbox createobject("wscript.shell")exec("cmd /c dir G:\*.* /b/s").readall
End Sub


Aber das grundsetzliche Problem ist, dass du die Daten gesplittet hast in Dateien.
Es wäre besser eine ordentliche Databasestruktur in eimen Arbeitsblatt zu erstellen.
Dann braucht man nur zu Filtern.
Exotische VBA ist dann überflüssig.

'Structuring precedes coding'
snb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8841
Registriert: 25. Sep 2014, 16:37

Re: Unterordner auslesen

Beitragvon wut » 09. Sep 2021, 20:09

@Nepumuk hey alles gut - ich bin dir für alles dankbar.

@snb ne leider kenne das nicht.

@all habe jetzt die Links über dein Auslese-Makro aufgelistet und lasse da drüber ein 2tes Makro laufen was Hyperlinks zu den Ordner erstellt. Es ist nicht schön aber es funktioniert


Danke an alle
wut
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 396
Registriert: 21. Sep 2005, 11:32

Re: Unterordner auslesen

Beitragvon snb » 09. Sep 2021, 20:25

Dann teste es mal.
snb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8841
Registriert: 25. Sep 2014, 16:37

Re: Unterordner auslesen

Beitragvon wut » 14. Sep 2021, 18:09

@snb

danke für den Tipp, aber ich bräuchte die Inhalte im Excel.

Danke
Marcus
wut
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 396
Registriert: 21. Sep 2005, 11:32

Re: Unterordner auslesen

Beitragvon snb » 14. Sep 2021, 20:05

Mwah, that's exactly what it is doing.

Code: Alles auswählen
Sub M_snb()
   sn= split(createobject("wscript.shell")exec("cmd /c dir G:\*.* /b/s").readall,vbcrlf)
   sheet1.cells(1).resize(ubound(sn)+1)=application.transpose(sn)
End Sub
snb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8841
Registriert: 25. Sep 2014, 16:37

Vorherige

Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: Klaus-Dieter und 45 Gäste