[Help] VBA vba xóa hình trong folder theo list excel

[ngoctuyen1995]

Thân chào cả nhà GPEX!
Mong cả nhà giúp em một việc ạ,

Hiện tại em có một File excel List Danh sách các Hình cần xóa và một Folder chứa Hình,

Em muốn dùng VBA để Delete các hình ở Folder chứa Hình mà có trong danh sách ở cột B của sheet Data (em có demo một số hình và data ạ).
Mong cả nhà giúp đỡ,

Em chân thành cảm ơn ạ.

 

[snow25]

Thân chào cả nhà GPEX!
Mong cả nhà giúp em một việc ạ,

Hiện tại em có một File excel List Danh sách các Hình cần xóa và một Folder chứa Hình,

Em muốn dùng VBA để Delete các hình ở Folder chứa Hình mà có trong danh sách ở cột B của sheet Data (em có demo một số hình và data ạ).
Mong cả nhà giúp đỡ,

Em chân thành cảm ơn ạ.

Bạn thử.Đặt file với ảnh cùng chung 1 chỗ rồi chạy code.

Sub xoaanh()
    Dim fso As Object, i As Long, lr As Long, duonglink As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    lr = Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        duonglink = ThisWorkbook.Path & "\" & Cells(i, 2).Value & ".JPG"
        If fso.FileExists(duonglink) Then
          fso.DeleteFile duonglink, True
        End If
    Next i
End Sub

 

[ngoctuyen1995]

Bạn thử.Đặt file với ảnh cùng chung 1 chỗ rồi chạy code.

Sub xoaanh()
    Dim fso As Object, i As Long, lr As Long, duonglink As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    lr = Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        duonglink = ThisWorkbook.Path & "\" & Cells(i, 2).Value & ".JPG"
        If fso.FileExists(duonglink) Then
          fso.DeleteFile duonglink, True
        End If
    Next i
End Sub

Cảm ơn Anh đã giúp đỡ em,
Code hay và nhanh lắm ạ,
Chúc anh sức khỏe và thành công.