การSave โดย Macro ให้ชื่อไฟล์ตรงตามช่องที่กำหนด

[che]

เรียนท่านอาจารย์ และท่านผู้รู้ทุกท่านครับ หากเรากำหนด ช่อง E5 เป็นชื่่องาน ต่าง ๆ นะครับ เวลาSave ด้วย Macro อยากให้ไฟล์
เป็นชื่อเดียวกับช่องE5 ได้ไหมครับ ถ้าได้ควรใช้ Code อย่างไรครับ ปรกติ Save แล้ว ไฟล์จะทับกัน ขอบคุณครับ

[bank9597]

เรียนท่านอาจารย์ และท่านผู้รู้ทุกท่านครับ หากเรากำหนด ช่อง E5 เป็นชื่่องาน ต่าง ๆ นะครับ เวลาSave ด้วย Macro อยากให้ไฟล์
เป็นชื่อเดียวกับช่องE5 ได้ไหมครับ ถ้าได้ควรใช้ Code อย่างไรครับ ปรกติ Save แล้ว ไฟล์จะทับกัน ขอบคุณครับ

หากเป็น vba ต้องเขียนมาเองก่อนครับ

[che]

เรียนท่านอาจารย์ และท่านผู้รู้ทุกท่านครับ หากเรากำหนด ช่อง E5 เป็นชื่่องาน ต่าง ๆ นะครับ เวลาSave ด้วย Macro อยากให้ไฟล์
เป็นชื่อเดียวกับช่องE5 ได้ไหมครับ ถ้าได้ควรใช้ Code อย่างไรครับ ปรกติ Save แล้ว ไฟล์จะทับกัน ขอบคุณครับ

หากเป็น vba ต้องเขียนมาเองก่อนครับ

ดูเหมือนง่ายๆแต่ยากครับ กันพวกชอบSaveงานทับครับ ขอบคุณครับ

[snasui]

เรียนท่านอาจารย์ และท่านผู้รู้ทุกท่านครับ หากเรากำหนด ช่อง E5 เป็นชื่่องาน ต่าง ๆ นะครับ เวลาSave ด้วย Macro อยากให้ไฟล์
เป็นชื่อเดียวกับช่องE5 ได้ไหมครับ ถ้าได้ควรใช้ Code อย่างไรครับ ปรกติ Save แล้ว ไฟล์จะทับกัน ขอบคุณครับ

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub Save()
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\st\Desktop\" & Range("e5").Value & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

[che]

เรียนท่านอาจารย์ และท่านผู้รู้ทุกท่านครับ หากเรากำหนด ช่อง E5 เป็นชื่่องาน ต่าง ๆ นะครับ เวลาSave ด้วย Macro อยากให้ไฟล์
เป็นชื่อเดียวกับช่องE5 ได้ไหมครับ ถ้าได้ควรใช้ Code อย่างไรครับ ปรกติ Save แล้ว ไฟล์จะทับกัน ขอบคุณครับ

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub Save()
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\st\Desktop\" & Range("e5").Value & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

ใช้ได้ดีมากเลยครับ ตรงความต้องการเลยขอบคุณมากๆเลยครับ

[March201711]

ถ้า cell e5 เป็นวันที่ เวลา save จะต้องปรับ code vba อย่างไรคะ

[snasui]

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

Code: Select all

ActiveWorkbook.SaveAs Filename:= _
        "D:\" & Format(Range("e5").Value2, "ddmmyyyy") & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

[March201711]

ติด debug ค่ะ

[snasui]

ติด debug ค่ะ

ลบ .value ก่อน & ".xlsm" ทิ้งไป ผมแก้ให้แล้วในโพสต์ด้านบนครับ

[March201711]

ถ้าเปลี่ยนเป็นsave แบบ xlsx แต่ก็ติด debug ค่ะ

[snasui]

แก้ที่ xlOpenXMLWorkbookMacroEnabled ลองศึกษาดูว่าควรจะกำหนดเป็นค่าใดจาก Link นี้ครับ https://msdn.microsoft.com/en-us/vba/ex ... tion-excel

[March201711]

ได้แล้วค่ะ ขอบคุณมากค่ะอาจารย์

[March201711]

มีคำถามสงสัยนิดนึงค่ะ ถ้าเราจะ จะsave date ที่ cell e5 แต่ อยู่อีก sheet อื่น file เดียวกัน ต้องปรับ code vba อย่างไรคะ

Code: Select all

 ActiveWorkbook.SaveAs Filename:= _
        "D:\" & Format(Range("e5").Value2, "ddmmyyyy") & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 

[March201711]

เช่น ที่ save วันที่ ที่ sheet test_save cell a1 แต่ติด debug ค่ะ

[snasui]

ดูจาก Code แล้วต้องการ Save เป็นไฟล์ที่มี Macro ดังนั้นจะต้องเปลี่ยนนามสกุลไฟล์ที่เขียนไว้ใน Code จาก .xlsx เป็น .xlsm เสียด้วยจึงจะ Save ได้ครับ

[March201711]

ได้แล้วค่ะ ขอบคุณมากค่ะ