รบกวนสอบถามเกี่ยวกับการสร้างสำเนา Sheet ออกไปสร้างไฟล์ใหม่

[niwat2811]

รบกวนสอบถามเกี่ยวกับการสร้างสำเนา Sheet ออกไปสร้างไฟล์ใหม่ กรณีนี้คือว่าผมต้องการที่จะสร้างสำเนา Sheet1 ออกไป แล้วสร้างเป็นไฟล์ใหม่
ในโฟลเดอร์ชื่อว่า Test ซึ่งอยู่ในไดร์ D: ขั้นตอนในการทำคือ ผมได้สร้างโฟลเดอร์ ชื่อว่า Test ไว้ที่ไดร์ D: แล้วจึง Run Macro ซึ่งอยู่ใน
Module1 ชื่อ SaveAsData ขั้นตอนทุกอย่างก็สมบูรณ์ดี แต่พอไปเปิดไฟล์ที่เซฟไว้ในโฟลเดอร์ Test กลับมีข้อความขึ้นมาถามว่า Do you want
to open file now? ซึ่งเราต้องตอบ Yes ถึงจะเปิดไฟล์นั้นได้ ไม่ทราบว่าเป็นเพราะสาเหตุใด รบกวนสอบถามท่านอาจารย์หรือผู้รู้ทุกท่านช่วยชี้แนะด้วยครับ
ขอบคุณมากครับ

[snasui]

ควรบอกให้ Program ทราบว่าจะ Save เป็น Format ใดครับ สำหรับ .xls สามารถปรับ Code เป็นด้านล่างครับ

Code: Select all

Sub SaveAsData()
    Dim wb As Workbook
    Dim NewName As String
    If MsgBox("ถ้าต้องการสร้างสำเนา กรุณากดปุ่ม OK และใส่ชื่อ" _
    , vbYesNo, "NewCopy") = vbNo Then Exit Sub
    Worksheets("Sheet1").Copy
    Set wb = ActiveWorkbook
    NewName = InputBox("กรุณาพิมพ์ชื่อที่ต้องการ", "New Copy")
    wb.SaveAs Filename:="D:\Test\" & NewName & ".xls", FileFormat:=xlExcel8
    wb.Close
End Sub

[niwat2811]

แจ้งผลครับ Code ที่ท่านอาจารย์ให้มาใช้ได้เป็นอย่างดีครับ