ExportData_Test.bas

Sub ExportData_Test() 'Trích xuất dữ liệu vào Workbook khác
Dim owb As Workbook
Dim sh As Worksheet
  
'Xác định vùng dữ liệu cần trích xuất
  Set sh=Sheet1
  sh.Range("A1:F100").Copy
'Mở Workbook cần lấy dữ liệu
  Set owb=Workbooks.Open("C:\Test\England.xlsm")
'Dán nội dung cần trích xuất vào workbook vừa được mở
  owb.Sheets("Data").Range("A1").PasteSpecial xlPasteValues
'Đóng Workbook cần lấy dữ liệu, lưu ý là có Save khi đóng
  owb.Close True
End Sub