Macro om gegevens van csv bestand in tabel te kopiëren (excel)

[kcreteur]

Wie kan me helpen?
Ik had graag een macro gevonden die automatisch de gegevens uit een csv bestand in een opgemaakte tabel zet door een druk op een knop.
In bijlage het excelbestand met de tabel en 2 voorbeeld csv bestanden.

De bedoeling is om een ledenlijst aan te maken. Dus indien mogelijk graag ook een controlemiddel op idnummer (indien dit reeds in de lijst voorkomt = melding - reeds lid). Zo vermijden we dubbele inschrijvingen.

In de csv bestanden staat er altijd een lege waarde 2x ; in plaats van 1 ; Ik heb nu een tabel aangemaakt in mijn excelbestand maar had liever, indien mogelijk, deze kolom niet staan omdat deze eigenlijk overbodig is. Als dit zou mogelijk zijn door een aanpassing in de code van de macro dan zou dit alles helemaal op punt zetten.

Alvast bedankt voor de hulp!

Ik heb de bestanden toegevoegd - merk wel op dat de cvs bestanden de extensie .txt hebben aangezien ik geen .cvs bestand in bijlage kon toevoegen.


Bekijk bijlage Testnaam1.txtBekijk bijlage Testnaam2.txtBekijk bijlage testledenlijst.xlsxBekijk bijlage Testnaam1.txtBekijk bijlage Testnaam2.txt

 

[edmoor]

Als niemand me voor is maak ik dat vanavond voor je en zonder die overbodige kolom.
Het is trouwens geen cvs maar csv.

 

[gober]

volgens mij is daar geen vba voor nodig.
ga als volgt te werk:
Gegevens, Verbindingen, toevoegen, bladeren naar meer, alle gegevensbronnen (wijzigen in tekstbestanden,Csv), dan wijst het zichzelf wel denk ik.

 

[edmoor]

Waar haal je het lidnummer vandaan? Dat staat niet in het csv bestand en kan er niet op een eventueel bestaand lid worden gecontroleerd.

 

[kcreteur]

Het gaat als volgt te werk:

- Ik haal de gegevens (naam, voornaam, ...) door de identiteitskaart in te lezen met een elektronische identiteitskaartlezer.
Daarmee bekom ik per lid een csv bestand.
- Lidnummer zal gewoon worden toegewezen volgens het aantal reeds aanwezig in de lijst.
Om een lid geen 2x toe te voegen in de lijst kan er gecontroleerd worden of het idkaartnummer reeds in de lijst staat. Dan moet je maar 1 waarde vergelijken i.p.v. vb de naam en voornaam.

Ik weet ook hoe ik manueel een csv bestand kan toevoegen. Maar dit lukt niet in een reeds opgemaakte tabel en via een macro met een controlemiddel zal dit veel tijd besparen.

Wat nog meer tijd zou besparen is om een lus te maken die alle csv bestanden in de map "/ingelezen_leden" zou ingeven. Maar dat vraagt meer werk voor jullie dus zou ik al heel blij zijn dat ik kan werken met een duw op een knop die de gegevens inleest van een csv bestand.

 

[edmoor]

Duidelijk. Ik zal er naar kijken.

 

[kcreteur]

Bedankt op voorhand

 

[gober]

elders op de site wordt ook gesproken over het importeren van id kaart gegevens misschien heb je er wat aan.
(Wist niet hoe ik de link kon kopiëren en plakken)

post 5757025

 

[edmoor]

Kijk eens of dit is wat je wilde hebben:
Bekijk bijlage testledenlijst.xlsm

Achter het blad Ledenlijst staat dit:

Private Sub CommandButton1_Click()
    Call TxtInMap("[COLOR="#FF0000"]C:\Users\Ed\Desktop\kcreteur\[/COLOR]")
End Sub

Wijzig daarin het rode gedeelte naar waar je .txt bestanden staan.
Vergeet daarbij die laatste \ niet.

Uiteraard heb ik niet anders kunnen testen dan met de twee 1-regelige txt bestanden die je plaatste.

 

[kcreteur]

Zal dit vlug eens uittesten.

 

[kcreteur]

Doet meer dan verwacht! Super bedankt

 

[edmoor]

Volgens mij doet het gewoon wat je vroeg
Graag gedaan