Trích xuất dữ liệu ra file excel mới (2 người xem)

[lehungbx]

Chào a chị.e có một file excel như đính kèm .e muốn trích xuất tự động bằng vba các sheet trang1 đến trang8 ra một file excel mới .và có thể giữ nguyên được các thuộc tính của file cũ .
Mong anh chị giúp đỡ ạ.
Em cảm ơn ạ.

 

[Hoàng Trọng Nghĩa]

Chào a chị.e có một file excel như đính kèm .e muốn trích xuất tự động bằng vba các sheet trang1 đến trang8 ra một file excel mới .và có thể giữ nguyên được các thuộc tính của file cũ .
Mong anh chị giúp đỡ ạ.
Em cảm ơn ạ.

Tôi không thấy trang2 vậy bạn? Hay trang2 là Sheet2?

Đây là code đơn giản nhất cho bạn, nếu muốn copy sheet nào thì thay hay thêm tên sheet đó vào mảng Array!

Sub CopySheetsToNewFile()
    Sheets(Array("trang1", "trang2", "trang3", "trang4", "trang5", "trang6", "trang7", "trang8")).Copy
End Sub

 

[Hoàng Trọng Nghĩa]

Nhắc nhở chủ topic: Bạn không được tạo nhiều topic có cùng một nội dung tại nhiều nơi, như thế sẽ bị phạm quy. Bạn nên chờ đợi có người hướng dẫn, nếu không ai biết thì bạn có tạo ngàn cái topic mới cũng chẳng ai giúp!

 

[qtm1987]

Chào a chị.e có một file excel như đính kèm .e muốn trích xuất tự động bằng vba các sheet trang1 đến trang8 ra một file excel mới .và có thể giữ nguyên được các thuộc tính của file cũ .
Mong anh chị giúp đỡ ạ.
Em cảm ơn ạ.

Bạn thảm khảo bài #15 của anh Ndu đã chuyển thành addin save as nhiều sheet chọn rất hay

Code save as sheet hiện hành

Các thầy cho e hỏi về đoanj code để saveas sheet hiện hành với ah. Cụ thể e có 1 file có khoảng 10 sheet, giờ e muốn tạo 1 code saveas để khi chạy code này thì sẽ saveas file dưới dạng .xls nhưng chỉ save sheet hiện hành thui.E có viết code nhưng nó save cả file tìm mãi ma không ra.mong các thầy...

www.giaiphapexcel.com

 

[lehungbx]

Tôi không thấy trang2 vậy bạn? Hay trang2 là Sheet2?

Đây là code đơn giản nhất cho bạn, nếu muốn copy sheet nào thì thay hay thêm tên sheet đó vào mảng Array!

Sub CopySheetsToNewFile()
    Sheets(Array("trang1", "trang2", "trang3", "trang4", "trang5", "trang6", "trang7", "trang8")).Copy
End Sub

E cảm ơn ạ.e muôna hỏi thêm là giờ e chỉ copy thôi ko cần copy cả công thức thì làm chỉ nào ạ.mong anh giúp đỡ ạ.

 

[hoahuongduong1986]

E cảm ơn ạ.e muôna hỏi thêm là giờ e chỉ copy thôi ko cần copy cả công thức thì làm chỉ nào ạ.mong anh giúp đỡ ạ.

Cái này mình giúp bạn được. Bạn xem code và File