ขอความช่วยเหลือ CodeVB Save ไฟล์

[tigerwit]

จากไฟล์ที่แนบ
ต้องการ
1.ให้มี MsgBox แจ้งว่า "กำลังส่งออกไฟล์ไปที่ C:\ชื่อไฟล์ (ชื่อที่กำหนดไว้ในชีท ExP เซล M2)
2. เมื่อส่งออกเสร็จให้มี MsgBox แจ้งว่า "ส่งออกไฟล์ไปที่ C:\ชื่อไฟล์ เรียบร้อยแล้ว"
3. หากมีไฟล์ชื่อเดียวกันอยู่แล้วให้ Save ทับไฟล์เดิมได้เลย ไม่ต้องแจ้งเตือน
จะต้องปรับ Code อย่างไรบ้างครับ

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

[snasui]

ช่วยปลด Password ของ VBA แล้วแนบไฟล์มาอีกทีครับ

[tigerwit]

ช่วยปลด Password ของ VBA แล้วแนบไฟล์มาอีกทีครับ

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

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

[tigerwit]

ขอบคุณครับผม