Snasui Excel Forum

Code: Select all

Sub export01()
    Dim FileSaveName As String
    If MsgBox("คุณต้องการส่งออกผลการเรียน ใช่หรือไม่ ?", 36, "ยืนยันการส่งออกผลการเรียน") = 6 Then
    Worksheets("ExportGrade").Range("C2:P50").Copy
    Workbooks.Add
    Range("A1").Select
    Selection.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
   Call AutoFit
    FileSaveName = Application.GetSaveAsFilename(fileFilter:="Excel File (*.xlsx), *.xlsx")
    If FileSaveName = "False" Then
    MsgBox "คุณไม่ได้บันทึกไฟล์ส่งออก โปรดดำเนินการใหม่อีกครั้ง"
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Application.DisplayAlerts = True
    Exit Sub
    End If
            If FileSaveName <> "" Then
                ActiveWorkbook.SaveAs Filename:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
                MsgBox "ไฟล์ส่งออกถูกบันทึกใน " & FileSaveName
            End If
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Range("A7").Select
    Application.DisplayAlerts = True
    End If
End Sub

Code: Select all

            
'Other code...
            If FileSaveName <> "" Then
                ActiveWorkbook.SaveAs Filename:=FileSaveName, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
 'Other code...      

Code: Select all

'Sub xxx()
Application.ScreenUpdating = False 
'Code..
Application.ScreenUpdating = True
'End Sub