Xin nhờ trợ giúp về Macro Copy dữ liệu

[buithinhvan77]

Tại File Tổng hợp HSG, tôi có 1 Macro để Copy dữ liệu từ nhiều File khác; nhưng mỗi lần lấy dữ liệu lại phải mở tất cả các File kia lên. (Nếu không mở thì có Macro báo lỗi)
Vậy nhờ các bạn viết giúp đoạn code để mở nhanh tất cả các File kia lên được không? Hoặc có thể chỉnh sửa Code cũ để không cần mở các File kia mà vẫn copy được dữ liệu không?
Đậy là đoạn Code cũ!

Sub CapnhatHSG()
Application.ScreenUpdating = False
    Windows("DIEM 6A.xls").Activate
    Sheets("K.Thuong").Select
    Range("B6:E48").Select
    Selection.Copy
    Windows("HSG").Activate
    Range("B5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Windows("DIEM 6B.xls").Activate
    Sheets("K.Thuong").Select
    Range("B6:E48").Select
    Selection.Copy
    Windows("HSG").Activate
    Range("B50").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.ScreenUpdating = Truse
End sub

Cảm ơn các bạn trước!

 

[TrungChinhs]

Bạn tham khảo bài này xem có được không ?
http://www.giaiphapexcel.com/forum/...u-từ-nhiều-file-khác-nhau&p=434778#post434778

 

[buithinhvan77]

Bạn tham khảo bài này xem có được không ?
http://www.giaiphapexcel.com/forum/showthread.php?70787-T%E1%BB%95ng-h%E1%BB%A3p-d%E1%BB%AF-li%E1%BB%87u-t%E1%BB%AB-nhi%E1%BB%81u-file-kh%C3%A1c-nhau&p=434778#post434778

Cám ơn bác nhiều nhé! Em làm được rùi.