Tìm kiếm và sao chép nhiều file cùng 1 lúc theo điều kiện

Chia sẻ bởi:hrspring.tides

★★★★★

‹ Tách dữ liệu thành nhiều cột Tính số năm số tháng số ngày... ›

Quảng cáo

Ví dụ folder của em có các file và nó có tên file như thế này.
400071533100010.txt
400071533100020.txt
400071533100030.txt
400071533100040.txt
400071538600010.txt
400071538600020.txt
400071538600030.txt
400071538700010.txt
400071538700020.txt
400071539000020.txt
– Giờ có người gửi cho em 2 cái tên mà họ cần lấy file.
400071538600020.txt
400071533100030.txt
Cách thông thường của em là search trên foder từng cái tên của 2 cái tên đó rồi cắt file riêng ra.
Giờ em muốn hỏi có cách nào cùng 1 lúc mà có thể tìm ra luôn 2 file đó ra không. ?

Cách 1:
1> Đầu tiên bạn tạo 1 thư mục ở bất kỳ chỗ nào (Desktop chẳng hạn). Tôi giả sử rằng tên thư mục là Temp nha
2> Copy cái file txt chứa danh sách files cần copy cho vào thư mục Temp. Tôi giả định tôi file txt là List.txt
3> Trong thư mục Temp, tạo thêm 1 thư mục có tên là Target. Thư mục Target này sẽ là nơi chứa files copy đến
4> Trong thư mục Temp, tạo 1 file bat với code

for /f "delims=" %%i in (List.txt) do echo D|xcopy "D:Source%%i" "Target"

trong đó chỗ màu đỏ D:Source chính là thư mục nguồn chứa các files txt gốc. Bạn phải sửa đường dẫn này cho phù hợp với máy của bạn
2038

Bạn có thể tạo file bat bằng cách mở Notepad, paste đoạn code trên vào. Xong Save As với tên tùy ý nhưng phải có đuôi là .bat. Riêng mục Save As Type bạn phải chọn All Files (*.*)

2039

5> Giờ thì double click vào file bat, chờ code chạy, mở thư mục Target và tận hưởng thành quả

Cách 2:
Sử dụng VBA để tìm kiếm và sao chép.
Đầu tiên, các bạn cần phải bật tính năng Enable macro trong Excel theo hướng dẫn như sau:

1. Bấm vào tab File (tab trên cùng bên trái trong cửa sổ Excel).
2. Nhấp vào nút Excel Options.
3. Nhấp vào Trust Center trong menu bên trái.
4. Nhấp vào Trust Center Settings trong cửa sổ bên phải.
5. Trong cửa sổ mới mở, nhấp vào Macro Settings trong menu bên trái.
6. Chọn Enable all macros.
7. Nhấn vào OK.
8. Nhấn vào OK một lần nữa.

9. Đóng tất cả các ứng dụng Office và khởi động lại Excel.