Inlezen gegevens twee excel bestanden

[roastfreak]

Beste leden,

Op een tweede server staan een hele lijst excel bestanden (minstens 100), waarin gegevens staan die ik zou willen overnemen in een nieuw excel bestand.
Het enige waar ik beide cellen mee kan linken is een deel van de benaming van het excel bestand dat op de server staat, en veld A1 in het nieuwe excel bestand, beide hebben een 6cijferige code.
In het nieuwe excel bestand staat deze code onder A1, in de lijst met excel bestanden staat deze ook onder de vorm van xxxxx-123456
Het bevat wel een deel van de benaming zoals jullie zien.

Mijn vraag naar jullie is nu, hoe kan dit worden geprogrammeerd in VB, zodat de gegevens worden opgezocht in de lijst met excel bestanden op de tweede server, en als hij deze heeft gevonden, hoe kunnen deze gegevens worden overgelezen naar het nieuwe excel bestand.
Gegevens die moeten worden overgenomen staan allemaal op dezelfde rij

Mvg,

 

[snb]

Met de methode Dir moet je een eind kunnen komen.

on error resume next
workbooks.open Dir("C:\voorbeeld\xxx*.xls")
do until err.number >0
  workbooks(1).sheets(1).range("A1:K1").copy 
  workbooks.open "C:\voorbeelden\" & dir
loop

 

[roastfreak]

Hiermee kom ik er helaas niet
Het is moeilijk om hier een programmaatje voor te schrijven met zo weinig informatie, waarvoor mijn excuses
Is er toch nog iemand die een poging kan ondernemen ?