Xin code chuyển từ file excel 2016 sang file excel 2003

[VetMini]

Hỏi mà còn giấu code ...

Cái code này nó quý lắm.

Ah, code làm lương này tôi đã làm và áp dụng từ mấy năm nay rồi. ...

Cỡ tay mơ như tôi thì sau mấy năm cái quy trình cũng đổi chứ nói chi code.

 

[hung2412]

Em mượn bài anh kieu manh tẹo nhé

Sub vidu()
    Dim ten_moi As String
    ten_moi = ThisWorkbook.FullName
    ten_moi = VBA.Left(ten_moi, Len(ten_moi) - 1)
    ThisWorkbook.SaveAs Filename:=ten_moi, FileFormat:=xlExcel8, _
            Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
            CreateBackup:=False
End Sub

Cảm ơn bạn nhé.