Copy từ 1 sheet của file Excel thành 1 file mới (1 người xem)

[hosibien]

Học được cách copy 1 sheet của file Excel ra 1 file mới, ở đâu đó trên diễn đàn. Nhưng tại sao sau khi lọc AutoFilter và sử dụng Form Copy tạo 1 file mới từ Sheet COSOTP thì kết quả file mới không giử nguyên định dạng mà thêm rất nhiều dữ liệu… và dung lượng của file mới tăng lên gần đến 2000 lần.
Nhờ các bạn giúp đỡ, làm thế nào khi copy ra file mới giử nguyên định dạng của sheet hoặc copy ra file mới với dữ liệu mới sau khi đã lọc.

 

[Quang_Hải]

Nếu chỉ copy nguyên sheet bao gồm cả shapes, code thì đơn giản mà

Sub copy()
ActiveSheet.copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\testcopy.xls", FileFormat:=xlNormal
End Sub

 

[hosibien]

Nếu chỉ copy nguyên sheet bao gồm cả shapes, code thì đơn giản mà

Sub copy()
ActiveSheet.copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\testcopy.xls", FileFormat:=xlNormal
End Sub

Cám ơn bạn nhiều, mình đã làm được rồi, Mọi người cho ý kiến và bổ sung thêm, nhưng đối với mình đã thỏa mãn theo yêu cầu, vì sau khi Copy vẫn giử nguyên cấu trúc, cơ sở dữ liệu và đặc biệt là cải thiện tốc độ code Copy chạy rất nhanh. Các bạn có thể tham khảo và sử dụng cho riêng mình.