ขอความช่วยเหลือ CodeVB Save ไฟล์
Posted: Sat Jun 18, 2022 9:20 pm
จากไฟล์ที่แนบ
ต้องการ
1.ให้มี MsgBox แจ้งว่า "กำลังส่งออกไฟล์ไปที่ C:\ชื่อไฟล์ (ชื่อที่กำหนดไว้ในชีท ExP เซล M2)
2. เมื่อส่งออกเสร็จให้มี MsgBox แจ้งว่า "ส่งออกไฟล์ไปที่ C:\ชื่อไฟล์ เรียบร้อยแล้ว"
3. หากมีไฟล์ชื่อเดียวกันอยู่แล้วให้ Save ทับไฟล์เดิมได้เลย ไม่ต้องแจ้งเตือน
จะต้องปรับ Code อย่างไรบ้างครับ
ต้องการ
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