Thủ thuật mới (1 người xem)

[nguoinoixa_2006]

Chào Admin và các bạn trên diễn đàn, mình nhờ các bạn sửa đoạn code này được không ạ.
Thư mục chứa file: chứa tất cả file cần copy.


Sub của mình sưu tầm:

Private Function CountFiles()
strDirectory = "I:\Thư mục chứa file"
strDestFolder = "Thư mục đến"
strExt = "pdf"
Dim myfilesystemobject As Object
Dim myfiles As Object
Dim myfile As Object
Dim rng As Range

Set rng = ThisWorkbook.ActiveSheet.Range("A1:A49")
Set myfilesystemobject = CreateObject("Scripting.FileSystemObject")
Set myfiles = myfilesystemobject.GetFolder(strDirectory).Files
For Each cell In rng
For Each myfile In myfiles
If Not IsNull(cell.Value) Then
If myfile = strDirectory & "\" & cell.Value Then
With myfile
.Copy strDestFolder & "\" & myfile.Name
End With
Else
End If
End If
Next myfile
Next cell
End Function

 

[befaint]

đang chập chững học VBA

Thế thì chép ở đâu cũng nên giữ nguyên trạng nhé.
strDirectory = "I:\Thư mục chứa file"
strDestFolder = "Thư mục đến"
Và làm quen, học tập với những cái đơn giản thôi. Làm việc quá sức mình là không nên.

 

[nguoinoixa_2006]

Thế thì chép ở đâu cũng nên giữ nguyên trạng nhé.
strDirectory = "I:\Thư mục chứa file"
strDestFolder = "Thư mục đến"
Và làm quen, học tập với những cái đơn giản thôi. Làm việc quá sức mình là không nên.

Bạn có thể giúp mình không.

 

[VetMini]

Bạn có thể giúp mình không. Tại vì mình làm việc với > 2000 thư mục nên làm cách này ko hiệu quả thôi. Hic hic

Làm việc với con số lớn thế này thì nên học PowerShell. Dùng công cụ này hiệu quả hơn Excel nhiều.

 

[quanluu]

Chào Admin và các bạn trên diễn đàn, mình nhờ các bạn sửa đoạn code này được không ạ.
Thư mục chứa file: chứa tất cả file cần copy.
Thư mục đến: Mình đã lập 1 danh sách thư mục (đã tạo thư mục sẵn).
Tất cả file trong thư mục chứa này mình đều đánh dấu thư mục cần copy
Nhờ các bạn giúp mình chỗ "strDestFolder" thay bằng 1 danh sách thư mục đến được không ạ?

Sub của mình sưu tầm:

Private Function CountFiles()
strDirectory = "I:\Thư mục chứa file"
strDestFolder = "Thư mục đến"
strExt = "pdf"
Dim myfilesystemobject As Object
Dim myfiles As Object
Dim myfile As Object
Dim rng As Range

Set rng = ThisWorkbook.ActiveSheet.Range("A1:A49")
Set myfilesystemobject = CreateObject("Scripting.FileSystemObject")
Set myfiles = myfilesystemobject.GetFolder(strDirectory).Files
For Each cell In rng
For Each myfile In myfiles
If Not IsNull(cell.Value) Then
If myfile = strDirectory & "\" & cell.Value Then
With myfile
.Copy strDestFolder & "\" & myfile.Name
End With
Else
End If
End If
Next myfile
Next cell
End Function

Xin mọi người chỉ giáo cho mình nhé. Mình đang chập chững học VBA thôi ạ.
Cảm ơn nhiều

Bạn đưa file excel bạn thiết lập lên coi xem thế nào.
Mà việc bạn đánh dấu file nào vào thư mục nào thì thời gian làm việc đó khác gì việc copy thủ công luôn.

 

[VetMini]

Bạn đưa file excel bạn thiết lập lên coi xem thế nào.
Mà việc bạn đánh dấu file nào vào thư mục nào thì thời gian làm việc đó khác gì việc copy thủ công luôn.

Danh sách thư mục có thể lấy từ cái gì đó... PowerShell chẳng hạn (!!!???) ;-)

 

[nguoinoixa_2006]

Cảm ơn mọi người nhé.