Copy dữ liệu từ các workbook vào 1 workbook

[hoangminhtien]

[FONT=&quot]Em có rất nhiều workbooks trong 1 foder, định dạng của các workbooks này là hoàn toàn giống nhau. bây giờ em muốn copy tất cả các dữ liệu của sheet1 trong các worksbook này vào 1 worksbook mới. Các bác xem trong file rồi hướng dẫn em cách làm với nhé! Cám ơn các bác.[/FONT]

 

[huuthang_bd]

[FONT=&quot]Em có rất nhiều workbooks trong 1 foder, định dạng của các workbooks này là hoàn toàn giống nhau. bây giờ em muốn copy tất cả các dữ liệu của sheet1 trong các worksbook này vào 1 worksbook mới. Các bác xem trong file rồi hướng dẫn em cách làm với nhé! Cám ơn các bác.[/FONT]

Bạn thử code này thử xem.

Sub TongHop()
Application.ScreenUpdating = False
MyFile = Array("File A", "File B", "File C")
MyPath = ActiveWorkbook.Path
For i = 0 To UBound(MyFile)
    Workbooks.Open Filename:=MyPath & "\" & MyFile(i) & ".xls"
    Workbooks(MyFile(i)).Sheets("Sheet1").Range([A2], [B65536].End(xlUp)).Copy Workbooks("Tong Hop").Sheets("Sheet1").[A65536].End(xlUp).Offset(1)
    Windows(MyFile(i) & ".xls").Close
Next
Application.ScreenUpdating = True
End Sub