ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://snasui.com/
che wrote:เรียนท่านอาจารย์ และท่านผู้รู้ทุกท่านครับ หากเรากำหนด ช่อง E5 เป็นชื่่องาน ต่าง ๆ นะครับ เวลาSave ด้วย Macro อยากให้ไฟล์
เป็นชื่อเดียวกับช่องE5 ได้ไหมครับ ถ้าได้ควรใช้ Code อย่างไรครับ ปรกติ Save แล้ว ไฟล์จะทับกัน ขอบคุณครับ
หากเป็น vba ต้องเขียนมาเองก่อนครับดูเหมือนง่ายๆแต่ยากครับ กันพวกชอบSaveงานทับครับ ขอบคุณครับbank9597 wrote:che wrote:เรียนท่านอาจารย์ และท่านผู้รู้ทุกท่านครับ หากเรากำหนด ช่อง E5 เป็นชื่่องาน ต่าง ๆ นะครับ เวลาSave ด้วย Macro อยากให้ไฟล์
เป็นชื่อเดียวกับช่องE5 ได้ไหมครับ ถ้าได้ควรใช้ Code อย่างไรครับ ปรกติ Save แล้ว ไฟล์จะทับกัน ขอบคุณครับ
che wrote:เรียนท่านอาจารย์ และท่านผู้รู้ทุกท่านครับ หากเรากำหนด ช่อง 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ใช้ได้ดีมากเลยครับ ตรงความต้องการเลยขอบคุณมากๆเลยครับsnasui wrote:che wrote:เรียนท่านอาจารย์ และท่านผู้รู้ทุกท่านครับ หากเรากำหนด ช่อง E5 เป็นชื่่องาน ต่าง ๆ นะครับ เวลาSave ด้วย Macro อยากให้ไฟล์
เป็นชื่อเดียวกับช่องE5 ได้ไหมครับ ถ้าได้ควรใช้ Code อย่างไรครับ ปรกติ Save แล้ว ไฟล์จะทับกัน ขอบคุณครับCode: Select all
Sub Save() ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\st\Desktop\" & Range("e5").Value & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
ตัวอย่าง Code ครับCode: Select all
ActiveWorkbook.SaveAs Filename:= _
"D:\" & Format(Range("e5").Value2, "ddmmyyyy") & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False.value ก่อน & ".xlsm" ทิ้งไป ผมแก้ให้แล้วในโพสต์ด้านบนครับ แก้ที่ xlOpenXMLWorkbookMacroEnabled ลองศึกษาดูว่าควรจะกำหนดเป็นค่าใดจาก Link นี้ครับ https://msdn.microsoft.com/en-us/vba/ex ... tion-excelCode: Select all
ActiveWorkbook.SaveAs Filename:= _
"D:\" & Format(Range("e5").Value2, "ddmmyyyy") & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False