Nhờ Anh/Chị trợ giúp Code Save As (1 người xem)

[kawaicandy]

Nhờ anh/chị trên diễn đàn giúp đỡ đoạn code Save As với tên hiện hành nhưng đổi đuôi .xlsm thành .xlsx không ạ
Ví dụ như file đang mở là abc.xlsm trong thư mục bất kỳ sẽ lưu lại thành abc.xlsx cũng nằm trong thư mục đấy
Em cảm ơn!!!

 

[huuthang_bd]

Nhờ anh/chị trên diễn đàn giúp đỡ đoạn code Save As với tên hiện hành nhưng đổi đuôi .xlsm thành .xlsx không ạ
Ví dụ như file đang mở là abc.xlsm trong thư mục bất kỳ sẽ lưu lại thành abc.xlsx cũng nằm trong thư mục đấy
Em cảm ơn!!!

Bạn thử code này

Sub Save_As()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
End Sub

 

[kawaicandy]

Lưu thì đúng tên, đúng format rồi anh nhưng nó ko lưu vào cùng 1 thư mục chứ file .xlsm mà nó tự lưu vào Document. Anh xem có thể chỉ giúp em đc ko ạ

 

[huuthang_bd]

Lưu thì đúng tên, đúng format rồi anh nhưng nó ko lưu vào cùng 1 thư mục chứ file .xlsm mà nó tự lưu vào Document. Anh xem có thể chỉ giúp em đc ko ạ

Bạn thử lại với code này xem sao

Sub Save_As()
    Application.DisplayAlerts = False
    With ActiveWorkbook
        .SaveAs Filename:=Left(.FullName, InStrRev(.FullName, ".") - 1), FileFormat:=xlOpenXMLWorkbook
    End With
    Application.DisplayAlerts = True
End Sub

 

[kawaicandy]

Dạ đúng ý em rồi anh ạ, cảm ơn anh rất nhiều.
Có 1 vấn đề nữa em muốn hỏi thêm là tại sao khi sử dụng code đấy file đc lưu sang .xlsx rồi nhưng sao ta vẫn thực hiện được macro ạ, phải tắt file rồi mở lại thì mới được. Ko hiểu vấn đề này là của excel nó thế hay sao

 

[huuthang_bd]

Dạ đúng ý em rồi anh ạ, cảm ơn anh rất nhiều.
Có 1 vấn đề nữa em muốn hỏi thêm là tại sao khi sử dụng code đấy file đc lưu sang .xlsx rồi nhưng sao ta vẫn thực hiện được macro ạ, phải tắt file rồi mở lại thì mới được. Ko hiểu vấn đề này là của excel nó thế hay sao

Excel nó thế đấy. Bạn Save As bằng tay thì nó cũng vậy thôi.

 

[kawaicandy]

Em hiểu rồi, cảm ơn anh