Chọn nhiều tập tin trong thư mục từ file excel

[yankapanda]

Chào mọi người em có một thắc mắc ạ ,
Em có 1 folder chứa rất nhiều file , bây giờ em muốn dựa vào phần filter trong Excel để click chọn file đó trong thư mục của máy tính ( chọn nhiều file xong em sẽ copy qua 1 folder khác), giống như ảnh dưới đây, Ai có giải pháp nào chia sẽ cho em với ạ.
Em cảm ơn mọi người nhiều

 

[Maika8008]

Chào mọi người em có một thắc mắc ạ ,
Em có 1 folder chứa rất nhiều file , bây giờ em muốn dựa vào phần filter trong Excel để click chọn file đó trong thư mục của máy tính ( chọn nhiều file xong em sẽ copy qua 1 folder khác), giống như ảnh dưới đây, Ai có giải pháp nào chia sẽ cho em với ạ.
Em cảm ơn mọi người nhiều
View attachment 251821

Giải pháp VBA thôi, rất dễ. Rất tiếc tôi phải đi rồi nên bạn chờ thành viên khác vậy.

 

[Nhattanktnn]

Chào mọi người em có một thắc mắc ạ ,
Em có 1 folder chứa rất nhiều file , bây giờ em muốn dựa vào phần filter trong Excel để click chọn file đó trong thư mục của máy tính ( chọn nhiều file xong em sẽ copy qua 1 folder khác), giống như ảnh dưới đây, Ai có giải pháp nào chia sẽ cho em với ạ.
Em cảm ơn mọi người nhiều
View attachment 251821

Bạn nén file rar lên một số file pdf và excel để tôi code thử xem

 

[yankapanda]

Bạn nén file rar lên một số file pdf và excel để tôi code thử xem

Mình test thử với tên làm mẫu thôi nha, còn nhũng file gốc đang ở máy khác ạ

 

[Maika8008]

Chào mọi người em có một thắc mắc ạ ,
Em có 1 folder chứa rất nhiều file , bây giờ em muốn dựa vào phần filter trong Excel để click chọn file đó trong thư mục của máy tính ( chọn nhiều file xong em sẽ copy qua 1 folder khác), giống như ảnh dưới đây, Ai có giải pháp nào chia sẽ cho em với ạ.
Em cảm ơn mọi người nhiều
View attachment 251821

Bạn thử có phải như ý bạn không nhé. Tôi sẽ thử với file bạn vừa tải lên sau.

Cách làm:
- Bạn nhập thư mục chứa file cần di chuyển đi vào sheet2!E1 (nguồn), thư mục file chuyển đến sheet2!E2 (đích)
- Chuẩn bị file cần di chuyển ở thư mục nguồn.
- Ở sheet1 cần lọc sẵn file cần di chuyển.
- Chạy code
(trong file là các tên file pdf mà tôi thử code)

 

[Maika8008]

Bạn thử với các file của bạn. Làm như trên, chỉ khác là file trước ghi rõ đuôi pdf, file này thì không.

 

[yankapanda]

Bạn thử với các file của bạn. Làm như trên, chỉ khác là file trước ghi rõ đuôi pdf, file này thì không.

Dạ mình chỉ cần copy thôi, file của bạn mình test nó move luôn sang thư mục khác rồi, thư mục gốc không còn file đó nữa

 

[Maika8008]

Dạ mình chỉ cần copy thôi, file của bạn mình test nó move luôn sang thư mục khác rồi, thư mục gốc không còn file đó nữa

À, để lát nữa sửa lại. Bạn có thể tự sửa cũng được. Sửa MoveFile thành CopyFile

 

[batman1]

Dạ mình chỉ cần copy thôi, file của bạn mình test nó move luôn sang thư mục khác rồi, thư mục gốc không còn file đó nữa

Luôn luôn phải làm bản sao trước khi chạy thử code chưa chắc chắn. Không lo trước thì có ngày khóc ròng đấy nhé.

 

[Nhattanktnn]

Dạ mình chỉ cần copy thôi, file của bạn mình test nó move luôn sang thư mục khác rồi, thư mục gốc không còn file đó nữa

Sửa chỗ bôi đỏ trong code thành Copy:

fso.MoveFile Spath & Sheet2.Range("A" & i) & ".pdf", Dpath