Lấy các tập tin từ thư mục tổng theo danh sách sử dụng VBA

[th7]

Chào các Bạn,
Mình có tập tin chứa tên các "Model" cần lấy trong thư mục tổng (thư mục này chứa rất nhiều các tập tin)
Kết quả mong muốn là lấy những tập tin đã liệt kê trong "Tranfers list" như đính kèm ở trên và đưa vào một thư mục
Các Bạn xem qua File mình đính kèm nha,

Mình định gửi File nén nhưng không được, các File mình đính kèm ở dưới là nằm trong "Vi du Folder tong"
Cảm ơn,

 

[th7]

Chào các Bạn,
Mình có tập tin chứa tên các "Model" cần lấy trong thư mục tổng (thư mục này chứa rất nhiều các tập tin)
Kết quả mong muốn là lấy những tập tin đã liệt kê trong "Tranfers list" như đính kèm ở trên và đưa vào một thư mục
Các Bạn xem qua File mình đính kèm nha,
View attachment 207039
Mình định gửi File nén nhưng không được, các File mình đính kèm ở dưới là nằm trong "Vi du Folder tong"
Cảm ơn,

Chào các bạn,
Mình có tìm kiếm trên mạng "https://www.extendoffice.com/documents/excel/4775-move-files-based-on-excel-list.html"
mình có làm theo, nhưng vướng một vấn đề, nhờ Các bạn hỗ trợ
theo VBA code ở trang trên thì bắt buộc dữ liệu trong tập tin Excel "Transfer list...." phải có tên đầy đủ giống y hệt tên của các thư mục trong Folder gốc kèm keo phải có ".xls" đuôi của tập tin,
có cách nào mà mình chỉ cần tìm 8 kí tự tên trong file Excel mà giống với tên của các file trong folder tổng thì sẽ gọi lấy file đó và đưa vào thư mục mình cần gom không?
Các bạn xem qua xem có thể bổ xung hoặc có VBA code nào khác cho bài viết này không?
Cảm ơn!

 

[Thong Hoang Tien 250691]

Chào các bạn,
Mình có tìm kiếm trên mạng "https://www.extendoffice.com/documents/excel/4775-move-files-based-on-excel-list.html"
mình có làm theo, nhưng vướng một vấn đề, nhờ Các bạn hỗ trợ
theo VBA code ở trang trên thì bắt buộc dữ liệu trong tập tin Excel "Transfer list...." phải có tên đầy đủ giống y hệt tên của các thư mục trong Folder gốc kèm keo phải có ".xls" đuôi của tập tin,
có cách nào mà mình chỉ cần tìm 8 kí tự tên trong file Excel mà giống với tên của các file trong folder tổng thì sẽ gọi lấy file đó và đưa vào thư mục mình cần gom không?
Các bạn xem qua xem có thể bổ xung hoặc có VBA code nào khác cho bài viết này không?
Cảm ơn!

Tôi chưa xem code, nhưng nếu là lấy 8 ký tự (ký tự đầu) của file trùng với tên file trong folder thì bạn dùng hàm Left.
Ví dụ:

vName = VBA.Left(vFileName, 8)

 

[befaint]

Lấy các tập tin từ thư mục tổng theo danh sách

 

[th7]

Chào bạn befaint,
Bạn xem file đính kèm mình gửi nha,
Cảm ơn.

 

[befaint]

Chào bạn befaint,
Bạn xem file đính kèm mình gửi nha,
Cảm ơn.

Từ từ mình chỉnh, giờ chưa được rảnh.
Nhưng sao bạn không lấy danh sách TÊN files đã có rồi lựa chọn chính xác theo tên đó? Danh sách Model được liệt kê ra như nào?
-----
(Chỗ ngoài lề, mình chỉ cần loại Coil 5VDC. Cảm ơn nhé).

 

[th7]

Từ từ mình chỉnh, giờ chưa được rảnh.
Nhưng sao bạn không lấy danh sách TÊN files đã có rồi lựa chọn chính xác theo tên đó? Danh sách Model được liệt kê ra như nào?
-----
(Chỗ ngoài lề, mình chỉ cần loại Coil 5VDC. Cảm ơn nhé).

Mình bổ xung rõ thêm những thông tin mình có:
- Danh sách model:
Được lấy từ kế hoạch đưa ra hàng tháng.
- Folder chứa tổng tất cả các file:
Đây là folder chứa tất cả các file được cập nhật mới nhất, sau mỗi tên quy định của sản phẩm thường có thêm "Revision" số đời được cập nhật mới nhất (có khoảng cách giữa tên sản phẩm và "Revision"), một số sản phẩm có thêm chữ B viết tắt của từ "BOM" Bill of material được đặt ở đầu và viết liền
--Kế hoạch hàng tháng đưa ra tên sản phẩm không có để từ "B" và "Rev", mặc định kế hoạch đưa ra sản phẩm nào thì chỉ cần tim tên giống trên Folder Tổng là được,
Chờ thông tin từ Bạn,

 

[befaint]

Mình bổ xung rõ thêm những thông tin mình có:
- Danh sách model:
Được lấy từ kế hoạch đưa ra hàng tháng.
- Folder chứa tổng tất cả các file:
Đây là folder chứa tất cả các file được cập nhật mới nhất, sau mỗi tên quy định của sản phẩm thường có thêm "Revision" số đời được cập nhật mới nhất (có khoảng cách giữa tên sản phẩm và "Revision"), một số sản phẩm có thêm chữ B viết tắt của từ "BOM" Bill of material được đặt ở đầu và viết liền
--Kế hoạch hàng tháng đưa ra tên sản phẩm không có để từ "B" và "Rev", mặc định kế hoạch đưa ra sản phẩm nào thì chỉ cần tim tên giống trên Folder Tổng là được,
Chờ thông tin từ Bạn,

 

[th7]

Cảm ơn Bạn Befaint nhiều nha,
Mình rất tâm đắc bài viết này,.