Xuất sheet ra file (1 người xem)

[hoangminhgiam]

Em có một file excel chạy ra thông tin kết quả trên sheet KetQua.
Em muốn viết thêm đoạn code xuất sheet KetQua này ra thành file excel:
-Tên file excel mới là output + tháng ngày giờ phút giây.
Vd: output0626160304.xls
-File mới được lưu cùng folder với file excel chứa macro vừa chạy
Ai biết làm ơn mách dùm

 

[hungvrvaq]

Gủi ban file tham khảo. Đây là file mình viêt code chưa hoàn chỉnh nhung sử dụng tốt . Bạn tham khảo và chỉnh sửa cho phù hợp và viết lại cho phù hợp trong trường hợp đã nhấn nút xuất file nhung lại hủy bỏ nhé.

 

[hungvrvaq]

không hiểu sao mình không gửi được file đính kèm. bạn cho địa chỉ emaol mình gửi cho file tham khảo

 

[Hai Lúa Miền Tây]

Em có một file excel chạy ra thông tin kết quả trên sheet KetQua.
Em muốn viết thêm đoạn code xuất sheet KetQua này ra thành file excel:
-Tên file excel mới là output + tháng ngày giờ phút giây.
Vd: output0626160304.xls
-File mới được lưu cùng folder với file excel chứa macro vừa chạy
Ai biết làm ơn mách dùm

Dùng code sau nhé:

Sub Test()
    Sheets("KetQua").Copy
    With ActiveWorkbook
        .SaveAs ThisWorkbook.Path & "\output" & Format(Now(), "mmddhhmmss")
        .Close
    End With
End Sub

 

[hungvrvaq]

gửi lại bạn file tham khảo mình viết

 

[hoangminhgiam]

@ndu: hjc, em không thấy file của bác
@hailuamientay: cảm ơn bạn, mình đã test thành công. That tuyệt vời.
@hungvr... File của bạn down về chạy bị lỗi do bạn cố định đường link

 

[hungvrvaq]

cái đó sửa dế mà bạn, bạn có thể sử dụng lệnh

ThisWorkbook.Path như hưuóng dẫn của Bạn Hai lua Miền Tây ấy