Map structuur deel 2

[HWV]

Beste,

Deel 1 http://www.helpmij.nl/forum/showthread.php?t=414451

Met de volgende code maak in één klap een aantal bestanden aan naar aanleiding van een standaard map.

Naam-plaatsnaam
submappen

Sub tst()
  For Each cl In Sheets(1).Columns(1).SpecialCells(xlCellTypeConstants)
    CreateObject("scripting.filesystemobject").copyfolder "C:\Klanten\Standaard map", "C:\Klanten\" & cl.Value
  Next
End Sub

Nu wil ik bij al deze artikelen nog een debnummer toevoegen is dat mogelijk via VBA, handmatig zullen het er rond de 1200 zijn.

Ik heb een lijst met hoe het nu is ingelzen

naam plaatsnaam

en ik heb een lijst hoe het moet worden

debnummer naam plaatsnaam

Groet HWV

 

[snb]

Wat, waar, hoezo, welk, wie, wanneer ???

 

[HWV]

ik begrijp dat ik onduidelijk ben in mijn vraagstelling

Beste,

Ik begrijp dat ik onduidelijk ben in mijn vraagstelling

Ik heb twee lijsten
1 e lijst
Afnemers1.xls
sheet adressen1

kolom 1 Naam
Kolom 2 Plaatsnaam

2 e lijst
Afnemers2.xls blad 1
sheet adressen2

kolom 1 Naam ( is gelijk aan lijst 1 )
kolom 2 Plaatsnaam ( is gelijk aan lijst 1 )
kolom 3 Debiteurennummer

Locatie c:\klanten

Van de eerste lijst heb ik al een mappen structuur gemaakt met de code eerder aan geleverd door SNB.
Nu blijk achteraf dat er toch nog een debiteurennummer in de naam stelling gewenst is.
De mappen die zijn aangemaakt zijn ook al gevuld met gegevens.

De naam van de hoofdmap dient gewijzigd te worden

Dus de vraag is kan dit en hoe kan ik dit het beste doen, zonder dat ik 1200 mappen met de hand moet aanpassen

Groet HWV

 

[HWV]

Met bijlage gepost

Beste,

Omdat er weinig reactie`s zijn op mijn vraag heb ik er een voorbeeld bij gedaan.

2 excel bestanden :

Afnemers1.xls
Afnemers2.xls

In de map zitten tevens ook voorbeelden van hoe de mappen er nu uit zien:

Naam1 Plaatsnaam1
Naam2 Plaatsnaam2
Naam3 Plaatsnaam3

en een voorbeeld van hoe ik het graag zou willen hebben.

Naam1 Plaatsnaam1 1234566

Locatie van de bestanden c:\klanten

Met een toevoeging van de bijlage hoop ik dat er iemand hier een oplossing voor heeft

k heb twee lijsten
1 e lijst
Afnemers1.xls
sheet adressen1

kolom 1 Naam
Kolom 2 Plaatsnaam

2 e lijst
Afnemers2.xls blad 1
sheet adressen2

kolom 1 Naam ( is gelijk aan lijst 1 )
kolom 2 Plaatsnaam ( is gelijk aan lijst 1 )
kolom 3 Debiteurennummer

Locatie c:\klanten

Van de eerste lijst heb ik al een mappen structuur gemaakt met de code eerder aan geleverd door SNB.
Nu blijk achteraf dat er toch nog een debiteurennummer in de naam stelling gewenst is.
De mappen die zijn aangemaakt zijn ook al gevuld met gegevens.

De naam van de hoofdmap dient gewijzigd te worden

Groet HWV

 

[HWV]

De oplossing gevonden

Beste,

Ik heb de oplosssing al gevonden voor mijn vraag in deze topic.

Via het programma "totaal commander", hier zit een mogelijkheid in tot het hernoemen van een bestand. Dit kan per stuk maar je kan de gehele dir. naar een txt bestand exporteren, het orginele excel bestand ernaast en na een controle kunnen de wijzigingen doorgevoerd worden vanuit de juiste excelbestand met de jjuiste gegevens.
Inlezen in "totaal commander", en de mappen worden automatich herbenoemd.

In iedergeval bedankt voor het meedenken

Groet HWV