Extract separately from a folder documents with specific names referred in an Excel table

vladimiratanasiu · Mar 8, 2019

Hello!

I have a folder containing about 5000 images, each one of them being named with a EAN (European Article Number) code. On the other hand, 700 of the total images have their EAN names transposed into an Excel table. My question is how could I filter and extract into another folder only the images mentioned in the Excel table, considering their EAN names.

Thank you!

Yongle · Mar 9, 2019

This may be of help (untested)
- does "EXTRACT" mean move or copy?
- add some error checking in case file not found etc
- alter the folder paths and note that the path separators are all vital

Code loops through 3rd column in first table found in active sheet

Code:

Sub MoveFiles()
    Dim FSO As Object
    Dim SourceFile As String, DestinFile As String, EAN As Variant
    Set FSO = CreateObject("Scripting.Filesystemobject")
    
    For Each EAN In ActiveSheet.ListObjects(1).ListColumns([COLOR=#ff0000]3[/COLOR]).DataBodyRange
        
        SourceFile = "C:\folderPath\f1dr1\" & EAN & ".jpg"
        DestinFile = "C:\folderPath\fldr2\" & EAN & ".jpg"

        FSO.MoveFile Source:=SourceFile, Destination:=DestinFile
    Next EAN
End Sub

Code:

Sub CopyFiles()
    Dim FSO As Object
    Dim SourceFile, DestinFldr As String, EAN As Variant
    Set FSO = CreateObject("Scripting.Filesystemobject")
    
    For Each EAN In ActiveSheet.ListObjects(1).ListColumns([COLOR=#ff0000]3[/COLOR]).DataBodyRange
    
        SourceFile = "C:\folderPath\f1dr1\" & EAN & ".jpg"
        DestinFldr = "C:\folderPath\fldr2\"
        
        FSO.CopyFile SourceFile, DestinFldr, True
    Next EAN
End Sub

Extract separately from a folder documents with specific names referred in an Excel table

vladimiratanasiu

Active Member

Excel Facts

Yongle

Well-known Member

Similar threads

Forum statistics

Share this page

Extract separately from a folder documents with specific names referred in an Excel table

vladimiratanasiu

Active Member

Excel Facts

Yongle

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock