Nhờ anh chị sửa code lưu tên file (3 người xem)

[thuy2022]

Em chào cả nhà. em có copy file trên diễn đàn nhưng giờ em muốn đặt tên file theo ô B2 thì sửa code thế nào cả nhà

 

[giaiphap]

Em chào cả nhà. em có copy file trên diễn đàn nhưng giờ em muốn đặt tên file theo ô B2 thì sửa code thế nào cả nhà

Sửa chổ

        docFilename.Close True

thành

        docFilename.SaveAs ThisWorkbook.Path & Application.PathSeparator & [B2].Value2 & ".docx"
        docFilename.Close False

Code này chưa kiểm tra file trùng tên, bạn sửa lại cho phù hợp nhé.

 

[thuy2022]

Em cảm ơn anh ạ.

 

[thuy2022]

Anh có thể bổ sung Code mở hộp thoại chọn File word mẫu trong thư mục nào đó không anh