Snasui Excel Forum

Code: Select all

Sub savefile()

    If MsgBox("ต้องการ บันทึกข้อมูล ใช่หรือไม่", vbYesNo, "Confirm") = vbNo Then
        Exit Sub
    End If

    savepath = Application.ActiveWorkbook.Path & "\WHT" & "_" & Format(Now, "yyyymmddhhnnss") & ".xlsm"

    ActiveWorkbook.SaveAs Filename:=savepath, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        
    MsgBox "บันทึกข้อมูลเสร็จเรียบร้อย"
    
End Sub