[VBA] Tìm files trong một thư mục và copy vào thư mục khác

Quảng cáo

dangmiu

Thành viên mới
Tham gia ngày
9 Tháng mười 2010
Bài viết
4
Được thích
0
Điểm
0
Tuổi
31
Chào mọi người,

Mình có đoạn code để tìm file từ một thư mục (từ ký tự có sẵn) và copy sang thư mục khác (file đính kèm).
Nhưng code không chạy được với file trong thư mục con, thư mục chính chạy bình thường. Nhờ mọi người giúp đỡ ạ!

P/S: nếu post sai mục nhờ Mod chuyển dùm nhé.
 

File đính kèm

  • source.xlsm
    15.7 KB · Đọc: 15

be_09

Biên Hòa, Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,770
Được thích
9,519
Điểm
2,868
Tuổi
63
Nơi ở
Khu phố Văn Hóa
Chào mọi người,

Mình có đoạn code để tìm file từ một thư mục (từ ký tự có sẵn) và copy sang thư mục khác (file đính kèm).
Nhưng code không chạy được với file trong thư mục con, thư mục chính chạy bình thường. Nhờ mọi người giúp đỡ ạ!

P/S: nếu post sai mục nhờ Mod chuyển dùm nhé.
Thử sửa đường dẫn chỗ 2 dòng code sau:
- SourcePath là đường dẫn nơi Folder chứa File cần chuyển đi.
- DestPath là đường dẫn nơi Folder chứa File cần chuyển đến.

Mã:
 SourcePath = "C:\Users\Admin\Desktop\copyfrom\"
 DestPath = "C:\Users\Admin\Desktop\copyto\"
 

dangmiu

Thành viên mới
Tham gia ngày
9 Tháng mười 2010
Bài viết
4
Được thích
0
Điểm
0
Tuổi
31
Thử sửa đường dẫn chỗ 2 dòng code sau:
- SourcePath là đường dẫn nơi Folder chứa File cần chuyển đi.
- DestPath là đường dẫn nơi Folder chứa File cần chuyển đến.

Mã:
 SourcePath = "C:\Users\Admin\Desktop\copyfrom\"
DestPath = "C:\Users\Admin\Desktop\copyto\"
Vấn đề là file cần tìm chưa biết cụ thể trong thư mục con nào nha bạn
Ví dụ: Thư mục "copyfrom" bao gồm 10 thư mục con, và không biết file cần tìm nằm cụ thể chỗ nào trong 10 thư mục này.
Bài đã được tự động gộp:

Có vẻ nó hơi khác so với nhu cầu của mình hoặc do kiến thức mình chưa đủ nên chưa hiểu hết ý bạn.
Đại loại:
- File A (file cần code): load dữ liệu gồm các keyword từ file B (theo một số yêu cầu nhất đinh) -> đã làm (1)
- Dựa trên keyword ở (1) tìm trong thư mục "copyto" -> đã làm, nhưng mình không biết cách code để tìm trong thư mục con
Rất mong được bạn giúp đỡ!
 
Lần chỉnh sửa cuối:

be_09

Biên Hòa, Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,770
Được thích
9,519
Điểm
2,868
Tuổi
63
Nơi ở
Khu phố Văn Hóa
Vấn đề là file cần tìm chưa biết cụ thể trong thư mục con nào nha bạn
Ví dụ: Thư mục "copyfrom" bao gồm 10 thư mục con, và không biết file cần tìm nằm cụ thể chỗ nào trong 10 thư mục này.
..........................................
Rất mong được bạn giúp đỡ!
Nhiều Folder thì kệ nó:
1/ Tại 2 dòng code trên sửa lại đường dẫn là 1 Cell nào đó, dùng Validation chọn Folder bất kỳ để lấy tên File.
2/ Xóa dòng những tên File không cần di chuyển.
3/ Muốn di chuyển đến dâu dùng Validation chọn Folder cần di chuyển đến.
4/ Nhấn nút thì nó sẽ di chuyển File theo ý muốn.
 

HeSanbi

Thành viên gắn bó
Tham gia ngày
24 Tháng hai 2013
Bài viết
1,624
Được thích
1,885
Điểm
868
Có vẻ nó hơi khác so với nhu cầu của mình hoặc do kiến thức mình chưa đủ nên chưa hiểu hết ý bạn.
Đại loại:
- File A (file cần code): load dữ liệu gồm các keyword từ file B (theo một số yêu cầu nhất đinh) -> đã làm (1)
- Dựa trên keyword ở (1) tìm trong thư mục "copyto" -> đã làm, nhưng mình không biết cách code để tìm trong thư mục con
Rất mong được bạn giúp đỡ!
---------------------------


Bạn tải file ở #9 bài viết đấy chưa.
 

dangmiu

Thành viên mới
Tham gia ngày
9 Tháng mười 2010
Bài viết
4
Được thích
0
Điểm
0
Tuổi
31
Nhiều Folder thì kệ nó:
1/ Tại 2 dòng code trên sửa lại đường dẫn là 1 Cell nào đó, dùng Validation chọn Folder bất kỳ để lấy tên File.
2/ Xóa dòng những tên File không cần di chuyển.
3/ Muốn di chuyển đến dâu dùng Validation chọn Folder cần di chuyển đến.
4/ Nhấn nút thì nó sẽ di chuyển File theo ý muốn.
Sau 1 thời gian có thể phát sinh thêm folder (dùng chung với các phòng ban khác) -> khó cập nhật danh sách folder.
Phần folder chuyển đến thì cố định rồi nên không cần chỉnh nữa.
Cảm ơn bạn đã góp ý, nếu có ý tưởng thì bổ sung thêm nha.
Bài đã được tự động gộp:

---------------------------


Bạn tải file ở #9 bài viết đấy chưa.
Mình có đọc qua mà nhiều quá, bạn có thể trích đoạn nào "tìm (keyword có sẵn ở nhiều cells) và copy được không.
VBA mình mới nhập môn nên không rành.
Giúp dùm nhé!
 

HeSanbi

Thành viên gắn bó
Tham gia ngày
24 Tháng hai 2013
Bài viết
1,624
Được thích
1,885
Điểm
868
Bạn copy đoạn: C:\Users\Admin\Desktop\copyfrom\ Vào phần thư mục

copy C:\Users\Admin\Desktop\copyto\ vào phần Đến thư mục

Đánh dấu tick vào Bao gồm thư mục con
Bỏ dấu tick ở Tất cả loại tệp

Gõ vào kiểu tệp: *.xlsx

Click vào Làm mới

Click vào Sao chép toàn bộ đến

-----------------------------
 

File đính kèm

  • QuanLyFile.xlsm
    129.8 KB · Đọc: 22

dangmiu

Thành viên mới
Tham gia ngày
9 Tháng mười 2010
Bài viết
4
Được thích
0
Điểm
0
Tuổi
31
Bạn copy đoạn: C:\Users\Admin\Desktop\copyfrom\ Vào phần thư mục

copy C:\Users\Admin\Desktop\copyto\ vào phần Đến thư mục

Đánh dấu tick vào Bao gồm thư mục con
Bỏ dấu tick ở Tất cả loại tệp

Gõ vào kiểu tệp: *.xlsx

Click vào Làm mới

Click vào Sao chép toàn bộ đến

-----------------------------
Cảm ơn bạn đã giúp nhé!
Mình sẽ nghiên cứu thêm để phù hợp với code mình đang làm.
 
Quảng cáo
Top Bottom