Ghép dữ liệu từ nhiều file vào 1 file tổng hợp dựa vào tên file (1 người xem)

[khaothibaclieu]

Xin chào các bạn!
Nhờ các bạn giúp mình với. Mình tự học VBA theo kiểu cần đâu hỏi đó nên học hoài không tiến bộ. Mình muốn nhờ các bạn giúp chuyện này.
Mình có workbook Tonghop, trong đó có sheet TKSL. Trong sheet này có cột Mã trường và các cột phòng thi. Mình cần lấy số liệu từ các workbook A, B, C, D (cùng cấu trúc và được đặt cùng thư mục) theo cách code VBA tự copy từ các file A, B, C, D này và dán ((paste spcial, transpose) vào sheet TKSL của workbook nhưng phải dán đúng vị trí các ô dựa vào dò mã trường trùng với tên workbook. Ví dụ tên workbook là A, thì phải dán đúng vào vị trí các ô có dòng mã trường A.
Trước đây mình toàn làm cách thủ công, tức là mở từng workbook, copy và dán vào workbook Tonghop.
Sau này tiến bộ hơn một chút, tự tạo một macro copy nhưng cũng chỉ biết làm theo cách copy từng workbook chứ không biết cách tạo vòng lặp để copy tất cả các workbook.
Mình đã tìm trên diễn đàn. Có rất nhiều bạn đề cập vấn đề này nhưng đúng theo nhu cầu của mình thì chưa có. Mong các bạn nhiệt tình giúp đỡ.
Mình gửi file đính kèm. Cám ơn trước.

 

[khaothibaclieu]

Hic. Sao không có ai giúp vậy nè? Các bạn giúp mình với.

 

[le tin]

Hic. Sao không có ai giúp vậy nè? Các bạn giúp mình với.

Bạn dùng thử file này
Chúc vui

 

[khaothibaclieu]

Bạn dùng thử file này
Chúc vui

Ban Le tin ơi. Mình đã tải về, nhưng khi chạy thì nhận được thông báo:
"Cannot run the macro'Tonghop.xlsx!Copy_Solieu'. The macro may not be availble in this workbook or all macro may be disable."
Mình đã Alt+F11 kiểm tra, không thấy có macro nào cả.
Nếu được bạn có thể đưa code lên đây để mình học hỏi. Cám ơn bạn nhiều lắm.

 

[le tin]

Ban Le tin ơi. Mình đã tải về, nhưng khi chạy thì nhận được thông báo:
"Cannot run the macro'Tonghop.xlsx!Copy_Solieu'. The macro may not be availble in this workbook or all macro may be disable."
Mình đã Alt+F11 kiểm tra, không thấy có macro nào cả.
Nếu được bạn có thể đưa code lên đây để mình học hỏi. Cám ơn bạn nhiều lắm.

Chẳng hiểu vì sao máy tôi không lưu được 2007 , tôi chuyển sang office 2003
Bạn tham khảo nhé