Giúp copy file theo list Excel (1 người xem)

[tueyennhi]

Em đang có một thư mục chứa rất nhiều file ảnh . Anh chị có cách nào mà từ danh sách list Excel copy toàn bộ file có tên như thế vào một thư mục chỉ định được không?

Như file đính kèm em muốn copy toàn bộ file có tên ở trong cột A. Nguồn file là ở địa chỉ E1, nơi lưu file là địa chỉ E2. Sau khi copy xong nếu file nào thiếu không có thì sẽ liệt kê danh sách file thiếu tại cột B.

Hiện tại em sưu tập được bài viết của anh Siwtom:

Sub CopyFolderAPI()
Dim lastRow As Long, r As Long, sourceDir As String, destDir As String
On Error Resume Next
    lastRow = Range("C1000").End(xlUp).Row
    destDir = Range("D1").Value
    For r = 2 To lastRow
        sourceDir = Range("C" & r).Value
        CopyFolder sourceDir, destDir
    Next
End Sub

Đáp ứng tốt việc copy theo list nhưng không theo dõi được file nào không tồn tại.

Em cảm ơn.

 

[giaiphap]

Bạn xem chổ này có giúp gì được bạn hay không?
http://www.giaiphapexcel.com/diendan/threads/tổng-quan-về-filesystemobject.95898/

 

[tueyennhi]

Bạn xem chổ này có giúp gì được bạn hay không?
http://www.giaiphapexcel.com/diendan/threads/tổng-quan-về-filesystemobject.95898/

Mình làm được rồi, tuy không được như ý nhưng vẫn thích .

Sub Kiem_tra_file()
Dim fso As Object
Dim lastRow As Long, r As Long, sourceDir As String
Set fso = CreateObject("Scripting.FileSystemObject")
    lastRow = Range("C10000").End(xlUp).Row
    For r = 2 To lastRow
        sourceDir = Range("C" & r).Value
    If Not fso.FileExists(sourceDir) Then
    Range("L" & r) = sourceDir
    End If
    Next
    Set fso = Nothing
End Sub

Không được như ý ở chỗ kết quả gán vào có khoảng trống cách nhau (vì theo code thì cái nào không tồn tại gán tên còn cái nào tồn tại thì gán khoảng trống). Sau khi có kết quả lại phải làm một công đoạn nữa là Filter.

 

[tueyennhi]

Update file cho anh em nào cần. File này em đã tùy biến lại từ code của anh Siwtom