Snasui Excel Forum

Code: Select all

Sub MacroReportSaveAs()
Dim fileSaveName As String
fileSaveName = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=fileSaveName
If fileSaveName <> "False" Then
    MsgBox "  Save as  " & fileSaveName & "  และ คลิกปุ่ม OK เพื่อปิดไฟล์นี้  ", vbExclamation, "    ชื่อไฟล์และสถานที่จัดเก็บไฟล์"
End If
    Range("A1").Select
    ActiveWorkbook.Close            '  สั่งปิดไฟล์ที่ save
End Sub

Code: Select all

Sub MacroReportSaveAs()
Dim fileSaveName As String
fileSaveName = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")
If fileSaveName <> "False" Then
    ActiveWorkbook.SaveAs Filename:=fileSaveName
    MsgBox "  Save as  " & fileSaveName & "  และ คลิกปุ่ม OK เพื่อปิดไฟล์นี้  ", vbExclamation, "    ชื่อไฟล์และสถานที่จัดเก็บไฟล์"
End If
    Range("A1").Select
    ActiveWorkbook.Close False'  สั่งปิดไฟล์ที่ save
End Sub