Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment