Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Specifieke cellen uit alle werkmappen in een folder kopiëren naar andere werkmap  (gelezen 3673 keer)

0 leden en 1 gast bekijken dit topic.

Offline stevevandaele

  • Nieuw lid
  • Berichten: 3
  • Geslacht: Man
  • Oplossing.be
Hallo,

Ik heb in Windows 10 een folder met verschillende werkmappen.
Bijvoorbeeld:

c:\club\groep1.xls
c:\club\groep2.xls
c:\club\groep3.xls
c:\club\groep16.xls
c:\club\totaal.xls

Uit die werkmappen wil ik bepaalde cellen kopiëren naar een nieuwe werkmap c:\club\overzicht

Dit is vrij eenvoudig en dit werkt al perfect d.m.v. een knop met daarachter een macro die dit automatisch doet.
In dit geval is het aantal werkmappen en hun exacte naam in c:<club echter gekend.

Probleem is nu dat noch het aantal, noch de exacte namen van de werkmappen in c:\sub zijn gekend (er komen telkens nieuwe werkmappen met andere namen bij.
De gegevens staan wel ALTIJD in dezelfde cellen in iedere werkmap, maar ik kan niet uitvissen hoe ik de macro uit ALLE (aantal en bestandsnaam onbekend) kan laten kopiëren naar c:\totaal.xls

Iemand enig idee, tips?

Vriendelijke groeten,

Steve Vandaele

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Specifieke cellen uit alle werkmappen in een folder kopiëren naar andere werkmap
« Reactie #1 Gepost op: 29 augustus 2017, 12:57:43 »
Stevevandeale, welkom op dit forum.

Je kan je bestanden in een folder doorlopen met deze procedure...
Sub DoorloopFolder()

    Foldernaam = Dir("c:\club\*.xls*", vbNormal)
    Do While Foldernaam <> ""
        MsgBox Dir  ' deze kan je uiteraard aanpassen naar een variabele ofzo om 'm in verdere procedure's te gebruiken...
        Foldernaam = Dir
    Loop

End Sub
______________________________

Groet, Leo

Offline stevevandaele

  • Nieuw lid
  • Berichten: 3
  • Geslacht: Man
  • Oplossing.be
Re: Specifieke cellen uit alle werkmappen in een folder kopiëren naar andere werkmap
« Reactie #2 Gepost op: 29 augustus 2017, 15:56:17 »
Bedankt Leo!

Ik ga dit deze week zeker uitproberen. Heb het momenteel nogal druk maar vind wel een gaatje.
Uiteraard laat ik weten of het gelukt is.

Vriendelijk groeten,

Steve

Offline stevevandaele

  • Nieuw lid
  • Berichten: 3
  • Geslacht: Man
  • Oplossing.be
Re: Specifieke cellen uit alle werkmappen in een folder kopiëren naar andere werkmap
« Reactie #3 Gepost op: 22 februari 2018, 15:12:00 »
Beste Leo,

Door omstandigheden een hele tijd niet aan verder gewerkt maar nu terug opgepikt.
Als ik die VBA code laat uitvoeren dan krijg ik geen fout, maar er gebeurt ook helemaal niks, ook geen MsgBox die verschijnt.
Eigenlijk wil ik dus vanuit elke xls in de folder cel A5 kopiëren naar cel B1 en cel D7 naar A2 in de nieuwe map

Hoe krijg ik dat voor elkaar?

Vrg,

Steve Vandaele

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Specifieke cellen uit alle werkmappen in een folder kopiëren naar andere werkmap
« Reactie #4 Gepost op: 22 februari 2018, 18:54:58 »
Hallo Steve,

In je eerste post meld je dat het al goed werkt voor een vast aantal bestanden. Dat zal dan toch niet letterlijk gebeuren zoals je hier stelt :
Eigenlijk wil ik dus vanuit elke xls in de folder cel A5 kopiëren naar cel B1 en cel D7 naar A2 in de nieuwe map
want dan overschrijven de waarden uit elk nieuw gelezen bestand die van het vorige en blijven bijgevolg enkel die van het laatste behouden in B1 en A2 (?)

Maar aangenomen dat het dus effectief werkt zal je enkel je code die je nu al in een loop hebt zitten (uiteraard mits kleine aanpassing, t.t.z. met verwijzing naar de variabele 'Foldernaam') binnen de loop van RedHead moeten opnemen :
Sub DoorloopFolder()

    Foldernaam = Dir("c:\club\*.xls*", vbNormal)
    Do While Foldernaam <> ""
        <<<hier jouw code (zonder bestaande loop) invoegen>>>
        Foldernaam = Dir
    Loop

End Sub

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

 


www.combell.com