Nhờ viết Code Copy toàn bộ các file excel từ 1 folder vào Folder khác. (2 người xem)

[LinDan]

Tôi có 1 Folder trong đó chứa rất nhiều folder con, trong folder còn lại chưa rất nhiều loại khác nhau (.doc, xls, flv...), giờ tôi chỉ muốn Copy (lọc) tất cả các file excel (đuôi xls, xlsx) ra thì phải làm thế nào, nhờ các thày chỉ giúp cho Code thực hiện

 

[namkpac]

Trong tập tin tmpFile do Dir trả về là text unicode.
Bạn thử giữ code cũ "GetListFile = Split(.OpenTextFile(tmpFile, 1).ReadAll, vbCrLf)" thì bạn sẽ thấy thế nào.
Còn code bạn hỏi thì nó đọc nội dung tập tin tmpFile vào text
Tôi thấy dùng OpenTextFile (không được) hay cái gì khác thay cho code của tôi cũng được. Miễn là khi thử thấy đúng.

Các anh chị giúp em 1 trường hợp này với; em có 1 file excel tên GIAYMOI nằm trong 1 folder tên DICH, bây giờ em muốn copy sheet1 trong file excel GIAYMOI đồng thời tạo 1 folder mới với tên của folder được lấy từ cell A4 của sheet1 và khi copy xong là đưa sheet1 này vào chính folder mới tạo có tên được lấy từ cell A4 của sheet1 đó và tên file mới sau khi copy đó cũng tên được lấy từ cell A4 luôn. thêm điều kiện là nếu có trùng thì báo và lưu mới cũng gồm tên được lấy tại cell A4 và thêm thời gian, ngày tháng năm sau tên đó. Em gửi kèm ví dụ luôn trong đó GIAYMOI là file gốc.