Xin hướng dẫn copy tự động file trong ds từ 1 folder gốc sang folder mới

[trantuanthanh.bhxh]

Chào các bác!
Em đang có 1 thư mục có rất nhiều file và cần copy tự động 1 số file trong đó (theo ds tên file) sang 1 thư mục khác. Mong các cao nhân chỉ giáo, giúp đỡ.
Xin cảm ơn.

 

[Maika8008]

Chào các bác!
Em đang có 1 thư mục có rất nhiều file và cần copy tự động 1 số file trong đó (theo ds tên file) sang 1 thư mục khác. Mong các cao nhân chỉ giáo, giúp đỡ.
Xin cảm ơn.

Tự động nghĩa là sao bạn?

 

[trantuanthanh.bhxh]

Tự động nghĩa là sao bạn?

tức là em muốn để tạo nút VBA sẽ tự copy các file trong DS cột B từ thư mục A vào thư mục B

 

[Maika8008]

tức là em muốn để tạo nút VBA sẽ tự copy các file trong DS cột B từ thư mục A vào thư mục B

Nút bấm bạn tự tạo nhé!

Sub CopyFiles()
Dim fso As Object, arr, i&, endR&

    endR = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
    If endR = 1 Then Exit Sub
    arr = Sheet1.Range("B2:D" & endR)
    Set fso = CreateObject("Scripting.FileSystemObject")
    For i = 1 To UBound(arr)
        fso.CopyFile arr(i, 2) & IIf(Right(arr(i, 2), 1) = "\", "", "\") & arr(i, 1), arr(i, 3) & IIf(Right(arr(i, 3), 1) = "\", "", "\")
    Next
End Sub