Valg af direktorier på grundlag af liste i Excel

Der er lidt at arbejde med her
http://www.tek-tips.com/faqs.cfm?fid=4116

Det ser ud som noget der kan bruges. Jeg har brugt den del der hedder "Copy a folder if it exists", og jeg har fået det til at virke med en enkelt folder. Men jeg skal have den til at kopiere en en lang række foldere - op mod 200, som er listet i Excel filen, og den skal ikke stoppe hvis folderen ikke findes

Dvs. du har brug for at gennemløbe din liste og for hver punkt køre koden?

Du kan læse om at gennemløbe et datasæt her:
http://www.it-fjernundervisning.dk/Excel_VBA/VBA_programmering/Gennemløb_af_datasæt.aspx

Så fik jeg det til at virke med følgende kode:

Sub CopyFolder()
Range("A1").Select
Do Until IsEmpty(ActiveCell)
Dim fso
Dim sfol As String, dfol As String
sfol = "d:\test1\" & (ActiveCell) ' change to match the source folder path
dfol = "d:\test2\" & (ActiveCell) ' change to match the destination folder path
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(dfol) Then
    fso.CopyFolder sfol, dfol
Else
    MsgBox dfol & " already exists!", vbExclamation, "Folder Exists"
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Tak for hjælpen. Lægger du et svar

Kommer her.
Altid dejligt at kunne hjælpe.

Tak for hjælpen