Saveชีททั้งหมดเป็นไฟล์Excelอัตโนมัติด้วยVBA

งาน การ Save ชีท Excel ออกเป็นไฟล์ Excel คราวละมาก ๆ เป็นคำถามที่มีถามบ่อยมากในห้องถามตอบ Excel ต่าง ๆ วันนี้เอาวิธีคิด และวิธีเขียนโค้ดมาฝาก

ใครสนใจ หรือกำลังหาทางทำอยู่ ก็ดูแล้วทำตามคลิป VDO สั้น ๆ 5 นาทีนี้ได้เลย ครับ

วิธีคิด…

  • 🔸 Loop ไปที่ชีทที่ต้องการ save ให้เป็นไฟล์ Excel ทีละชีท
  • 🔸 copy ชีท โดยไม่ต้องกำหนดที่วาง VBA จะสร้างชีทนั้นให้เป็นไฟล์ใหม่อัตโนมัติ
  • 🔸 Save ไฟล์ที่ได้ตามชื่อชีทที่ loop อยู่
  • 🔸 สั่ง ปิด ไฟล์ไป
  • 🔸 ก่อนจบ สร้าง message box เพื่อแจ้งเตือนเมื่อการ Save เสร็จสิ้น

    ———– Code ที่เขียนได้เป็นแบบนี้ ———–
    Sub GenerateExcelFile()
    Dim i As Long
    For i = 3 To Sheets.Count
    Sheets(i).Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & “\” & ThisWorkbook.Sheets(i).Name & “.xlsx”, 51
    ActiveWorkbook.Close
    Next i
    MsgBox “DONE !!!”
    End Sub
    ———– จบเพียงสั้น ๆ เท่านี้ ———–

    🔸 ไม่ว่าจำนวนชีทน้อย หรือมาก ถึงมากที่สุด ก็เขียนโค้ดแค้ 7 บรรทัดเท่านี้ ครับ

    เป็นโค้ดง่าย ๆ เพียงแค่รู้จักการทำงานของ VBA งานนี้เป็นเพียงการใช้ความรู้ VBA พื้นฐานเบื้องต้นง่าย ๆ ที่ใคร ๆ ก็เรียนรู้ได้ไม่ยากครับ

    ไม่ต้องกลัวครับ
    VBA ไม่ได้ยากอย่างที่คิด
    ทุกคนสามารถเรียนรู้ได้
    ถ้าได้เรียนอย่างเป็นระบบ ถูกวิธี

    ————//————
    👉 #สนใจเรียนVBAกับผม
    สำหรับผู้ที่จริงจัง อยากเรียน VBA เพื่อเอาไปใช้งาน

    👉 ติดต่อสอบถามเนื้อหาเพิ่มเติม หรือสมัครได้ที่ลิงค์นี้ m.me/excelbypichart หรือ โทร. 099-084-2562 / 082-663-9949
    ————//————

    อ.ชาติ
    Learn Excel With Pichart
    Smart Excel For Better LIFE

    ใส่ความเห็น

    อีเมลของคุณจะไม่แสดงให้คนอื่นเห็น ช่องข้อมูลจำเป็นถูกทำเครื่องหมาย *