Copy worksheet từ Workbook này sang workbook khác

 Copy worksheet từ Workbook này sang workbook khác bằng VBA:

Copy

Public Sub CopySheetToEndAnotherWorkbook()
    ActiveSheet.Copy After:=Workbooks("Book1.xlsx").Sheets(Workbooks("Book1.xlsx").Worksheets.Count)
End Sub

Code này sao chép worksheet đang hoạt động và đặt bản sao vào cuối Book1, thay thế "Book1.xlsx" bằng tên của Workbook mà bạn muốn copy worksheet vào. Chú ý cả hai workbook phải cùng mở. Để copy nhiều sheet cùng lúc chỉ cần thay ActiveSheet trong đoạn code trên bằng Workbooks("Workbook1.xlsx").Worksheets(Array("Sheet1", "Sheet2")) Trong đó Workbook1.xlsx là nguồn và Sheet1, Sheet2 là tên sheet mà bạn muốn copy.