Bestanden met mappen en submappen weergeven in Excel

[Omteleren]

Hoi,
Graag wil ik een overzicht van bestanden met de bestandsnamen, directory's en een hyperlink in Excel werkblad krijgen.
Bijvoorbeeld ik wil alle bestanden van Q:\Naam\Balansdossier 2020 op een werkblad krijgen. (Naam is even een voorbeeld, vanwege privacy)
Ik ben bezig met dossiervorming en bestanden die geupload moeten worden. Het terugzoeken waar de bestanden dan staan en welke is dan wel handig.
Is er iemand die al een mooi voorbeeld heeft en dit wil delen. Ik heb er op Helpmij wel ooit voorbij zien komen, maar op dit moment heb ik helaas weinig tijd.
Hopelijk kan iemand mij nog blij maken!

 

[JEC.]

Zie dit draadje

https://www.helpmij.nl/forum/showth...alle-excelbestanden-op-de-pc?highlight=folder

 

[Omteleren]

Bedankt.
Ik heb een hele mooie code gevonden op deze site.
Ik moet de code nog wat aanpassen, maar dat lukt nog niet.
Ik wil nog graag twee kolommen, A en B met de tijd er bij.
Staat allemaal beschreven en het lukt gewoonweg niet. Lijkt heel simpel.

zie site. https://www.excelhowto.com/macros/how-to-list-all-files-in-folder-and-sub-folders-use-excel-vba/

Cloumn A: Directory, Cloumn B: Bestandsnaam
en nog de bestandsdatum verkrijgen.
De standaardcode werkt, maar ik krijg de 2 aanpassingen niet voor elkaar.

Wie mij zou kunnen helpen zou heel mooi zijn.

 

[Omteleren]

Hierbij de code die werkt, dit is nog zonder A: Directory, Column B bestandsnaam en Column C de bestandsdatum.
Standaard werkt wel, maar de Colomn B en C nog niet.
Dat is het voor mij perfect. Staat allemaal beschreven, maar ik heb exact gedaan wat er stond en het werkt niet.
zie site https://www.excelhowto.com/macros/how-to-list-all-files-in-folder-and-sub-folders-use-excel-vba/

 

[Senso]

Wellicht ten overvloede, met de zoekmachine Everything kun je een folder met submappen en bestanden zoeken en exporteren naar een csv-bestand en dan > Tekst naar kolommen > Gescheiden > komma en alles staat er en kun je doen wat jezelf wilt.

Zoek E:\naam\Balansdossier 2020
Regex niet geactiveerd en je krijgt een volledig overzicht met pad, datum, extensie, grootte etc.

 

[JEC.]

Power Query is hier ook heel goed in.

 

[HSV]

Kolom A bestandslocatie en naam; kolom B: bestandsdatum.

Het rode gedeelte aanpassen

Sub hsv()
Dim a, i As Long
a = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""[COLOR=#ff0000]C:\users\Omteleren\documents\bepaalde map[/COLOR]\*.xls""/b/o:n/s").stdout.readall, vbCrLf) 
  ReDim b(UBound(a), 1)
     For i = 0 To UBound(a) - 1
       b(i, 0) = a(i)
       b(i, 1) = FileDateTime(a(i))
     Next i
  Cells(1).Resize(UBound(a), 2) = b
  Columns("a:b").AutoFit
End Sub

 

[Omteleren]

Beste Harry,

Bedankt het werkt super.
Is het ook nog mogelijk dat de bestandsnaam in kolom B komt en de datum met tijd in kolom C.

Dat zou slagroom op de taart zijn. Maar hier ben ik al heel blij mee. :thumb:

 

[snb]

Waarom volstaat het ovezicht in het hulpscherm "Open' ctrl-O niet ?

 

[Omteleren]

Hoi Snb,
Je bedoelt de verkenner. Ik vergelijk bestand met elkaar en moet vaker terugzoeken. Dus meer overzicht. Er worden tegenwoordig zoveel gegevens opgevraagd. Ik type wel nu vaak in het zoekvenster, maar wens is dit om op een werkblad te zien.

 

[Omteleren]

Hoi,

Hoe kun je met een formule dit uitlezen: Afspraken.xlsm
Het gaat om het laatste deel. Er kunnen meer submappen zijn.

In cel A! staat: C:\Users\naam\Documents\Excel-Access\Afspraken.xlsm

Hoe kun je dit met een formule doen.

 

[snb]

Ben je voldoende bekend met de zoek/filtermogelijkheden in het 'Open' scherm ?

 

[Omteleren]

Hoi Snb,
Zoeken rechtsboven en dan de selectie invullen. Is er nog meer dan?

 

[snb]

Ik bedoel:

 

[HSV]

Toch nog maar.

Sub hsv()
Dim a, i As Long
a = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\users\Omteleren\documents\bepaalde map\*.xls""/b/o:n/s").stdout.readall, vbCrLf)
  ReDim b(UBound(a), 2)
     For i = 0 To UBound(a) - 1
       b(i, 0) = StrReverse(Split(StrReverse(a(i)), "\", 2)(1))
       b(i, 1) = Split(a(i), "\")(UBound(Split(a(i), "\")))
       b(i, 2) = FileDateTime(a(i))
     Next i
  Cells(1).Resize(UBound(a), 3) = b
  Columns("a:c").AutoFit
End Sub

 

[Omteleren]

Hoi Harry,
De code werkt goed. Fraai is dat de bestandsnaam in een aparte kolom komt te staan.
voordeel is wel dat je geen functie hoeft te gebruiken.

Alleen is het jammer dat de submappen niet meekomen. Bedankt voor de code. Ik heb de code in mijn bibliotheek opgeslagen.

 

[HSV]

Ook de Submappen worden weergegeven.

 

[cow18]

a = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\users\Omteleren\documents\bepaalde map\*.xls""/b/o:n[COLOR="#FF0000"][SIZE=3]/s[/SIZE][/COLOR]").stdout.readall, vbCrLf)

submappen zijn er zeker bij

 

[HSV]

Dank voor de bevestiging @cow18 (Bart).

 

[Omteleren]

Beste HSV,

Helemaal goed. Nu heb je ook minder lange paden en het is duidelijker. De submappen komen wel mee.
Het geeft licht in duistere dagen. Heel erg bedankt. :thumb: