Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Mappen index in Excel  (gelezen 7501 keer)

0 leden en 1 gast bekijken dit topic.

Offline sfinx

  • Nieuw lid
  • Berichten: 1
  • Geslacht: Man
  • Oplossing.be
Mappen index in Excel
« Gepost op: 08 september 2017, 14:28:30 »
Onlangs al mijn analoge foto's (negatieven) ingescand en in mappen (op de NAS) gezet per jaar en in onderliggende mappen per gebeurtenis per maand:

dus bijvoorbeeld:
  \\nas-gr-01\data\4 - Foto's\2016 en eerder\1980\1980-03 Gebouwen

Nu wil ik de inhoudsopgave graag in Excel zetten met linkjes naar de betreffende onderliggende mappen, zodat ik direct vanuit Excel in die map op het fotonummer kan klikken om de foto te openen.

Met zoekfunctie zou helemaal mooi zijn.

Ik heb het geprobeerd met een webquery, maar kan uiteindelijk de map niet in Excel importeren.

Heeft iemand een slim idee? Alvast bedankt!


Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Mappen index in Excel
« Reactie #1 Gepost op: 08 september 2017, 14:55:34 »
Hallo sfinx,

Welkom op Oplossing.be  :)

ik kwam laatst een handig tooltje tegen, waarvan ook een gratis versie is: Directory list & Print.
Je kan die lijsten in Excel of in Word laten zetten, dat kan je in het tabblad "Output" van het programma bepalen.
Wil je ook een snelkoppeling in je Word- of Excel-bestand naar de foto, dan moet je de betaalversie kopen. Deze kost 20,00 €.

Anders wordt het een heel karwei om al de linken manueel te maken.

Succes,

:) SoftAid :)             


Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Mappen index in Excel
« Reactie #2 Gepost op: 08 september 2017, 18:12:03 »
Hallo,

Anders wordt het een heel karwei om al de linken manueel te maken.

Ik ken dat programmaatje niet, dus biedt die betaalversie misschien nog andere voordelen, maar gesteld dat hyperlinks toevoegen de enige reden zou zijn om 20 € te spenderen, dan zou ik het toch liever met vba oplossen.
Laten we aannemen dat de ganse lijst zich in kolom A bevindt, dan kan dat er in zijn eenvoudigste vorm zo uitzien :
Sub hyperlinks()

aantal = ActiveSheet.UsedRange.Rows.Count
For i = 1 To aantal
    naam = Cells(i, 1)
    ActiveSheet.hyperlinks.Add Anchor:=Cells(i, 1), Address:=naam, TextToDisplay:=naam
Next i

End Sub

Staan er in de lijst nog elementen die geen hyperlink mogen krijgen dan zal de nodige uitbreiding van deze code allicht niet onoverkomelijk zijn.

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Mappen index in Excel
« Reactie #3 Gepost op: 08 september 2017, 18:29:02 »
Hallo Pitufo,

mooie oplossing (en kostenbesparend) maar met de bestandsnamen om te zetten naar links krijgt men links naar bvb
voorbeeld.xls. Daar kan die link niets mee doen. Er moet minstens het pad bij opgegeven worden.

Nu, het gratis tooltje zet op de eerste regel (A1) ook het pad van en naar de map, waaruit de bestandsnamen  gehaald zijn(en die staan op respectievelijk A2,A3,A4 enz....).
We zouden dit kunnen gebruiken om het pad en de bestandsnaam samen te voegen alvorens er een link van te maken.

Dat werkt wel!

Nu nog in code omzetten.

:) SoftAid :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Mappen index in Excel
« Reactie #4 Gepost op: 08 september 2017, 18:51:00 »
Hoi SoftAid,

Daar krijgen we het al, 't is ook waarom ik begonnen was met de aankondiging dat ik dat programma niet ken  8)
Zoals je kon afleiden hoopte ik een beetje dat pad en naam in één cel kwamen te staan...

Maar als je alle afzonderlijke elementen hebt valt die "volledige" naam uiteraard terug samen te puzzelen.
Zie ik dat nu goed dat dit programma slechts één map (zonder eventuele submappen) verwerkt (pad in A1 en de rest eronder ?). Dan kan net zo goed het goede oude dir-commando worden gebruikt (anders overigens ook maar dit geheel terzijde  :D )

Anyway, als die structuur er uitziet zoals ik nu in gedachten heb dan blijft de aanpassing redelijk beperkt :

Sub hyperlinks()

aantal = ActiveSheet.UsedRange.Rows.Count
pad = cells(1,1) & "\"
For i = 2 To aantal
    naam = pad & Cells(i, 1)
    ActiveSheet.hyperlinks.Add Anchor:=Cells(i, 1), Address:=naam, TextToDisplay:=naam
Next i

End Sub

Als er nog iets hapert kan je misschien een klein Excel-voorbeeldje bezorgen ?

Mvg,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Mappen index in Excel
« Reactie #5 Gepost op: 08 september 2017, 19:40:47 »
Als er nog iets hapert kan je misschien een klein Excel-voorbeeldje bezorgen ?
Hangt al aan mijn vorig bericht  ;)

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Mappen index in Excel
« Reactie #6 Gepost op: 08 september 2017, 20:14:50 »
Oeps, enkel - heel aandachtig evenwel - je bijdrage gelezen en over bijlage gekeken  :-[

Eigenlijk zijn we er dan al : je kan de lus in mijn eerste code je kolom B laten doorlopen in plaats van A (overigens wél gezien dat je dat al hebt gedaan). Ik had me dus ook een beetje laten vangen omdat je nog stelde "nu nog in code omzetten"
Maar je kan ook met mijn tweede code rechtstreeks aan de slag (dus zonder kolom B te maken)
Kwestie van goesting dus  ;)

Mvg,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Mappen index in Excel
« Reactie #7 Gepost op: 08 september 2017, 21:09:16 »
Hallo pitufo,

zoals verwacht werkt je tweede code correct. Enkel de directory wordt niet omgezet tot link. Ik weet niet of dat belangrijk is voor sfinx.
Door de lus uit te breiden naar rij 1 (For i = 1 to aantal) kan dit opgelost worden.

Wel voorzie ik meer problemen als sfinx meer mappen en bestanden gaat toevoegen.

@ sfinx,

op welke manier wil je te werk gaan? Hoe wens je dat je eindresultaat er uit gaat zien.
Maak eens een voorbeeldbestandje in Excel met fictieve mappen en bestanden, bijvoorbeeld op blad1:
En hoe je dan verder wilt?

:) SoftAid :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Mappen index in Excel
« Reactie #8 Gepost op: 09 september 2017, 09:44:49 »
Hallo SoftAid,

De enige reden voor mijn eerste reactie was je, volkomen terechte, opmerking dat manueel hyperlinks maken een onprettige opdracht zou zijn. Ik wou dus enkel aantonen dat we daarvoor beter vba kunnen gebruiken. De essentie van mijn eerste code zat dus in die ene "hyperlinks.Add"-instructie. De code eromheen is iets wat we dagdagelijks met onze ogen dicht voor alle soorten opdrachten gebruiken, en was een voorbeeld van hoe eenvoudig het er eventueel zou kunnen uitzien.
Om een pasklare code te schrijven moeten we uiteraard over alle noodzakelijke info beschikken.

Wel voorzie ik meer problemen als sfinx meer mappen en bestanden gaat toevoegen.

Dat valt ook eenvoudig op te lossen, hoor. Je hebt gezien dat ik 2 keer de variabele "naam" in die instructie heb staan. Ook dat was enkel om het voorbeeld eenvoudig te houden. Enkel bij "Address" heb je de preciese en volledige bestandsnaam nodig, bij "TextToDisplay" kan je perfect iets anders zetten, en je kan ook je hyperlink met "Anchor" ergens anders zetten.
Dus (alweer enkel bij wijze van voorbeeld - er kan eindeloos mee gespeeld worden) : de te verwerken gegevens staan in kolom A, die gebruiken we om "naam" samen te stellen die bij "Address" moet komen, en we zetten de hyperlink in kolom B neer. Als er later bestanden worden toegevoegd verwerken we enkel de gegevens uit kolom A als op die rij B leeg is.

Voor nog specifiekere kwesties is het inderdaad wachten op sfinx  ;)

Groeten,
pitufo

"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 132
  • Geslacht: Man
Re: Mappen index in Excel
« Reactie #9 Gepost op: 05 oktober 2017, 14:25:58 »
Het een en ander bijeen gezocht.
Ik weet niet of het dit is wat verwacht wordt.
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Mappen index in Excel
« Reactie #10 Gepost op: 05 oktober 2017, 16:09:01 »
Lommer,

je bent een artiest

Spijtig haalt je macro "NaamFolder_Click()" enkel afbeeldingen op, geen map.
"Naam Folder" is dan ook een beetje misleidend hier  0:-)

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 132
  • Geslacht: Man
Re: Mappen index in Excel
« Reactie #11 Gepost op: 05 oktober 2017, 17:09:08 »
Hallo SoftAid,

Heb een kleine aanpassing gedaan. Ook documenten kunnen ingelezen worden.
Dit alles is het resultaat van een zoektocht en de puzzel laten passen.

Mvg,
lommer
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Mappen index in Excel
« Reactie #12 Gepost op: 05 oktober 2017, 17:10:23 »
Hmmmm.... De initiële vraag was op 8 september... En verder geen sjoege meer van de TS. Die heeft óf al voldoende aan de eerste reacties gehad óf is zich rot geschrokken van de VBA-code óf heeft op een ander forum een oplossing gekregen? Of is gewoon lekker een maand op vakantie. DAT kan natuurlijk ook!  ;D
______________________________

Groet, Leo

Offline lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 132
  • Geslacht: Man
Re: Mappen index in Excel
« Reactie #13 Gepost op: 07 oktober 2017, 12:16:22 »
Een paar aanpassingen gedaan.
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 132
  • Geslacht: Man
Re: Mappen index in Excel
« Reactie #14 Gepost op: 11 oktober 2017, 14:10:29 »
Mappen inhoud via een userform.
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

 


www.combell.com