Snasui Excel Forum

Code: Select all

Sub ExportScore()
    Application.ScreenUpdating = False
    Sheets("Exp").Select
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    MsgBox "กำลังส่งออกไฟล์ไปไว้ที่ C:\" & Range("m2").Value & ".xlsx"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs "C:\" & Range("M2").Value
    Application.DisplayAlerts = True
    ActiveWindow.Close
    Sheets("Exp").Select
    Range("a2").Select
    Sheets("main").Select
    Application.ScreenUpdating = True
    MsgBox "ส่งออกไฟล์ไปไว้ที " & "C:\" & Worksheets("Exp").Range("M2").Value & " เรียบร้อยแล้ว"
End Sub

Code: Select all

Sub ExportScore()
Application.ScreenUpdating = False
Sheets("Exp").Select
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
MsgBox "กำลังส่งออกไฟล์ไปที่ C:\"
ActiveWorkbook.SaveAs "C:\" & Range("M2").Value
ActiveWindow.Close
Sheets("Exp").Select
Range("a2").Select
Sheets("main").Select
Application.ScreenUpdating = True
MsgBox "ส่งออกไฟล์ไปที่" & "C:\ เรียบร้อยแล้ว" & Range("M2").Value
End Sub