XUẤT VÀ LƯU 2 HAY NHIỀU SHEET TRONG CÙNG 1 FILE MỚI

[sony18102012]

Dear anh chị
Hiện tại mình có 1 file rất nhiều sheet và đoạn code chỉ lưu được 1 sheet thành 1 file mới

Sheets("RFSP (2)").Select
Sheets("RFSP (2)").Name = "SHOPEE"
For Each Xws In ThisWorkbook.Sheets
If Xws.Name = "SHOPEE" Then
Xws.Copy
Application.ActiveWorkbook.SaveAs FileName:=xPath & "\SHOPEE\" & "DON HANG SHOPEE BILL NGAY " & rng3.Value & " GIAO NGAY " & rng3.Value + 1 & ".xlsx"
Application.ActiveWorkbook.Close False
End If

Nhưng mình lưu 2 sheet cùng lúc thành 1 file mới mà làm hoài không được. Nhờ anh chị hỗ trợ mình giúp.
Sheets("RFSP (2)").Name = "SHOPEE"
Sheets("SP (2)").Name = "Detail SHOPEE"

Cám ơn.

 

[HieuCD]

Dear anh chị
Hiện tại mình có 1 file rất nhiều sheet và đoạn code chỉ lưu được 1 sheet thành 1 file mới

Sheets("RFSP (2)").Select
Sheets("RFSP (2)").Name = "SHOPEE"
For Each Xws In ThisWorkbook.Sheets
If Xws.Name = "SHOPEE" Then
Xws.Copy
Application.ActiveWorkbook.SaveAs FileName:=xPath & "\SHOPEE\" & "DON HANG SHOPEE BILL NGAY " & rng3.Value & " GIAO NGAY " & rng3.Value + 1 & ".xlsx"
Application.ActiveWorkbook.Close False
End If

Nhưng mình lưu 2 sheet cùng lúc thành 1 file mới mà làm hoài không được. Nhờ anh chị hỗ trợ mình giúp.
Sheets("RFSP (2)").Name = "SHOPEE"
Sheets("SP (2)").Name = "Detail SHOPEE"

Cám ơn.

Sheets(Array("SHOPEE", "Detail SHOPEE")).Copy

 

[sony18102012]

Sheets(Array("SHOPEE", "Detail SHOPEE")).Copy

Cám ơn @HieuCD nhiều nha!