Meerdere excel bestanden samenvoegen
Mozes
Hopelijk kan iemand mij helpen. Zelf kom ik er niet uit.
Elke dag krijg ik een Excel bestand met 1 a 2 werkbladen.
Na een week zijn dus 5 Excel bestanden met gegevens, en na een maand,
jaar........ nou ja.
Vroeger werd gewerkt op een server en was een Excel bestand in "Share" de
oplossing. Het invullen van de bestanden is verplaats naar een locatie
buiten mijn server.
Ik zet alle ontvangen bestanden in een map en ik zou graag willen via een
macro alle bladen samen voeren in een (nieuwe) blad met als scheiding de
datum of iets anders.
Ben ik duidelijk en kan dat?
Alvast bedankt.
--
Met vriendelijke groetjes
Moché
m.ch...@wanadoo.nl
Cobbe
Mijnheer Vandeberg,
Steeds dezelfde vraag stellen zal ook geen oplossing brengen.
Cobbe
--
Dit is een automatische handtekening van MesNews.
Site : http://www.mesnews.net
Mozes
Geen antwoord hebben geeft ook geen oplossing :-)
Hopelijk hebt u er geen last van.
Mozes
Cobbe
Jawel ik heb er last van dat ik geen antwoord weet.
Mozes
Bedankt
Jammer dat alleen u en ik deze gevoel delen.
Mozes
>
BBert
> Ben ik duidelijk en kan dat?
Niet echt.
Je krijgt dus veel excel bestanden aangeleverd. En dan? Je plaatst ze in
een map. Bedoel je een directory? Wat wil je vervolgens gaan doen?
Moeten de gegevens uit die aangeleverde bestanden overgeheveld worden
naar een andere werkmap? Wat bedoel je "met als scheiding de datum"?
Vragen, vragen ,vragen.
--
Met vriendelijke groeten / Mit freundlichen Grüßen / With kind
regards/Avec mes meilleures salutations
BBert
April 20, 1986
Celtics (135) - Bulls (131)
Larry Bird: "God disguised as Michael Jordan"
Luc Heyndrickx
En het zou me allicht lukken om hier een stukje te automatiseren.
Ergens met API-Call's het binnengekomen bestand laten selecteren...
CurrentRange kopiëren, en plakken in je bestand onderaan de vorige ingegeven
bestandjes.
Helaas is dit niet zomaar een code die ik effe uit het hoofd schrijf.
CurrentRange bepalen gaat nog wel. Datum er in zetten ook. Maar om ook die
API-Call's er in te krijgen, en om het nog vlot te laten werken.
Bovendien hangt het er nog van af in hoeverre jij het wil automatiseren.
Indien de gebruiker de disipline heeft om telkens het nieuwe bestand
toekomt, dit ook bij te werken. (Desnoods laten oplopen tot een bestand of
5)... dan gaat het nog.
Indien je je mapje laat oplopen tot een paar honderd bestandjes, dan moeten
we weer naar een andere oplossing zoeken.
Luc
"BBert" <ber...@home.nl> schreef in bericht
news:MPG.1d3e53879...@news.tilbu1.nb.home.nl...
Mozes
"Luc Heyndrickx" <lucheyndrickx...@skynet.be> schreef in bericht
news:OgnOslyh...@TK2MSFTNGP14.phx.gbl...
> Oh... duidelijk ben je wel.
> En het zou me allicht lukken om hier een stukje te automatiseren.
>
> Ergens met API-Call's het binnengekomen bestand laten selecteren...
> CurrentRange kopiëren, en plakken in je bestand onderaan de vorige
> ingegeven bestandjes.
> Helaas is dit niet zomaar een code die ik effe uit het hoofd schrijf.
> CurrentRange bepalen gaat nog wel. Datum er in zetten ook. Maar om ook
> die API-Call's er in te krijgen, en om het nog vlot te laten werken.
> Bovendien hangt het er nog van af in hoeverre jij het wil automatiseren.
> Indien de gebruiker de disipline heeft om telkens het nieuwe bestand
> toekomt, dit ook bij te werken. (Desnoods laten oplopen tot een bestand
> of 5)... dan gaat het nog.
> Indien je je mapje laat oplopen tot een paar honderd bestandjes, dan
> moeten we weer naar een andere oplossing zoeken.
>
> Luc
(sorry per ongeluk naar mail gestuurd)
>
Nu begin het interessant te worden.
De bestanden kan mijn collega hernoemen.
Ik kan deze actie automatiseren en plaats laten vinden een keer per week,
dus max 5 a 7 bestanden. Maar ook ieder dag indien er via een macro
plaatsvindt.
Ik ben benieuwd naar de mogelijkheden.
Ik zou de code kunnen begrijpen maar helaas niet zelf schrijven.
Groetjes en bedankt zover.
Mozes.
>
>
>
Luc Heyndrickx
Plaats deze macro in je doelbestand:
Sub HaalOp()
Dim lng As Long
Dim wkb As Workbook
Dim wkb2 As Workbook
Set wkb = ThisWorkbook
Workbooks.Open ThisWorkbook.Path & "\X.xls"
Set wkb2 = ActiveWorkbook
With wkb.Sheets(1)
If .Range("A1").Value = "" Then
lng = 1
Else
lng = .Range("A65536").End(xlUp).Row + 1
End If
wkb2.Sheets(1).Range("A1").CurrentRegion.Copy .Cells(lng, 1)
End With
wkb2.Close
End Sub
Daarna binnengekomen bestand in dezelfde map opslaan onder de naam X.xls.
(Niet getest, maar ik vermoed dat je bij mapopties de extensie moet
weergeven)
Macro runnen, en bronbestand weggooien, zodat je een volgend bestand onder
deze naam kan opslaan.
Luc
"Mozes" <m.ch...@wanadoo.nl> schreef in bericht
news:42d44bac$0$98367$dbd4...@news.wanadoo.nl...
Luc Heyndrickx
Via mail komt er niets per ongeluk toe. DitVerwijderen moet uit m'n
mailadres gehaald worden.
Indien je collega bereid is om elk toegekomen bestand even te hernoemen naar
bijvoorbeeld: X.xls, en dit bestand even in dezelfde map te plaatsen als je
samenvoegbestand.
Indien hij ook telkens de macro uitvoert als er een nieuw bestand toekomt.
Indien alle bestanden moeten samengevoegd worden op één werkblad (het
eerste)
Indien alle data op de binnengekomen bestanden ook terug te vinden zijn in
een aaneengesloten gebied in het eerste werkblad.
Dan zou ik het (onafgewerkt) snel kunnen maken, zonder API- Call's.
Collega moet dan niets anders meer doen dan binnengekomen bestand hernoemen
naar X.xls; dit in dezelfde map plaatsen, macro runnen, en bronbestand
weggooien.
Luc
Mozes
Ik zal het testen en het resultaat terugkoppelen.
Alvast bedankt
Mozes
"Luc Heyndrickx" <lucheyndrickx...@skynet.be> schreef in bericht
news:ugLjXK4h...@TK2MSFTNGP09.phx.gbl...