Software til udtræk

Kunne du forestille dig at anvende et regneark til nr og så via indbygget VBA udføre udtrækket.
"Numre på filnavne" - gerne lidt mere forklaring.

Hejsa - ja, det ville være super godt.

Lad os sige, at du har en liste:

Blomst.jpg
Bil.jpg
Cykel.jpg

Så skal man på en måde kunne fodre excel-arket med filnavnene (bare uden .jpg), hvorefter den trækker en liste i en mappe - f.eks. C:\Users\smartguy\Desktop\udtræk

Ja - det var tanken..

Sådan ser VBA koden ud:
Hvis du vil have filer og regnearket med VBA - så udfyld kontakt på
www.supertekst-it.dk

Const FramappeNavn = "FraMappe"
Const TilMappeNavn = "TilMappe"
Const filExtend = ".JPG"
Dim sti As String, antalRækker As Integer, ræk As Integer
Dim filnavn As String
Private Sub kopierFiler()
    sti = ActiveWorkbook.Path
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To antalRækker
        filnavn = Range("A" & ræk) & filExtend
        FileCopy sti & "\" & FramappeNavn & "\" & filnavn, sti & "\" & TilMappeNavn & "\" & filnavn
    Next ræk
End Sub