Nhập dữ liệu từ file excel này sang file excel khác

[Mrbean992]

Mọi người cho em hỏi, ví dụ có 2 file book1.xlsm và book2.xlsm, code nào để nhập dữ liệu từ file book1 sang book2.
Em ví dụ code của em trên cùng 1 sheet và 1 file như này:
Sub Nhap()
x = Range("a1000").End(xlUp).Row + 1
Range("a" & x) = Range("a1")
End sub
Thanks all

 

[Maika8008]

Mọi người cho em hỏi, ví dụ có 2 file book1.xlsm và book2.xlsm, code nào để nhập dữ liệu từ file book1 sang book2.
Em ví dụ code của em trên cùng 1 sheet và 1 file như này:
Sub Nhap()
x = Range("a1000").End(xlUp).Row + 1
Range("a" & x) = Range("a1")
End sub
Cảm ơn all

Thử xem:

Sub GetData()
Dim Dbk As Workbook, Sbk As Workbook
Dim SSh As Worksheet, x As Long

Application.ScreenUpdating = False

    Set Dbk = ThisWorkbook  'đây là book2.xlsm
    Set Sbk = Workbooks.Open(ThisWorkbook.Path & "\" & "book1.xlsm") 'Mở book1.xlsm cần lấy dữ liệu, có cùng đường dẫn với book2.xlsm
    Set SSh = Sbk.Sheets("Sheet1")  'Thay Sheet1 bằng tên sheet cần lấy dữ liệu của bạn
   
    x = Dbk.ActiveSheet.Range("a1000").End(xlUp).Row + 1
    Dbk.ActiveSheet.Range("a" & x) = SSh.Range("a4")

    Sbk.Close SaveChanges:=False
    Dbk.Activate
   
    Set SSh = Nothing
    Set Dbk = Nothing
    Set Sbk = Nothing

Application.ScreenUpdating = True

End Sub