Bạn thử tham khảo tại đây xem sao.
cảm ơn bạn đã giúp, nhưng mình đã làm theo bài viết nhưng không thành công. với lỗi can't execute code in break mode
Bạn gửi file lên đi.
đây nha bạn. bạn xem giúp mình với
Cột D c,cột E dữ liệu mới chỉ có 1 dòng là sao bạn nhỉ, các dòng dưới không có là lấy luôn theo 1 dòng dùng chung đó phải không?
Bạn thử:
Sub test()
Dim fso As Object, arrFile As Variant
Dim sFileName As String, sNote As String, sFolderNew As String, i As Long
Dim thisSheet As Worksheet
Set thisSheet = ThisWorkbook.ActiveSheet
i = thisSheet.Cells(thisSheet.Rows.Count, "C").End(xlUp).Row
If i < 4 Then Exit Sub
Set fso = CreateObject("Scripting.FileSystemObject")
arrFile = thisSheet.Range("C4:E" & i).Value
For i = LBound(arrFile, 1) To UBound(arrFile, 1)
sFileName = arrFile(1, 2) & arrFile(i, 1)
sFolderNew = arrFile(1, 3)
If fso.FileExists(sFileName) Then
If fso.FolderExists(sFolderNew) Then
sFileName = arrFile(1, 2) & "*" & arrFile(i, 1)
fso.CopyFile sFileName, sFolderNew
Else
MsgBox "Folder: " & sFolderNew & " không có.", vbCritical + vbOKOnly
Exit Sub
End If
Else
If Len(sNote) = 0 Then
sNote = "File: " & sFileName & " không có."
Else
sNote = sNote & vbNewLine & "File: " & sFileName & " không có."
End If
End If
Next i
MsgBox "Xong,kiem tra lai!" & vbNewLine & sNote, vbOKOnly + vbInformation
End Sub
Với chủ đề này thì bạn ghé Topic này xem nha, chắc chắn sẽ vượt mong đợi của bạn.
www.giaiphapexcel.com
sau khiy chạy code của bạn thì xuất hiện thông báo như này nhưng sFolderNew vẫn trống. bạn có thể hỗ trợ giúp mình được không?
cảm ơn bạn đã trả lời, nhưng hình như nó không thể copy file được.Với chủ đề này thì bạn ghé Topic này xem nha, chắc chắn sẽ vượt mong đợi của bạn.
Lấy danh sách đường dẫn File và thư mục trong VBA
Hai hàm dưới đây sẽ giúp chúng ta thực hiện lấy tất cả File hoặc Path trong một thư mục hoặc file và các thư mục bên trong thư mục. Hàm ListAllFiles và các tham số: 1. aFolder- Đối số là chuỗi hoặc mảng: Là Path của Folder cần lấy List File 2. FSO - Đối số Object: Truyền vào Object để giải...
Khả năng không copy được file hoặc đường dẫn tiếng Việt.
