หากต้องการใช้ VBA เพื่อปิดเวิร์กบุ๊ก ให้ใช้เมธอด Workbook.Close และเมื่อต้องการออกจาก Excel ให้ใช้เมธอด Application.Quit
ต่อไปนี้เป็นตัวอย่างโค้ดบางส่วน: ปิดสมุดงานที่ใช้งานอยู่และพร้อมท์ว่าจะบันทึกหรือไม่หากมีการเปลี่ยนแปลงในสมุดงาน:
คัดลอกรหัสรหัสดังต่อไปนี้:
สมุดงานปิดย่อย()
ActiveWorkbook ปิด
จบหมวดย่อย
หากคุณต้องการหลีกเลี่ยงการแจ้ง คุณสามารถเพิ่มพารามิเตอร์ "SaveChanges" เช่น การบันทึกและปิดสมุดงานโดยตรง:
คัดลอกรหัสรหัสดังต่อไปนี้:
ClostAndSaveWorkbook ย่อย ()
ActiveWorkbook ปิดบันทึกการเปลี่ยนแปลง:=True
จบหมวดย่อย
เปลี่ยน "True" ในโค้ดด้านบนเป็น "False" เพื่อปิดสมุดงานโดยตรงโดยไม่บันทึก
ปิดสมุดงานที่เปิดอยู่ทั้งหมดและแจ้งว่าจะบันทึกหรือไม่:
คัดลอกรหัสรหัสดังต่อไปนี้:
ปิดสมุดงานทั้งหมดย่อย()
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
สมุดงาน.ปิด
จบหมวดย่อย
ออกจาก Excel และได้รับแจ้งให้บันทึกสมุดงานที่เปลี่ยนแปลง:
คัดลอกรหัสรหัสดังต่อไปนี้:
SubQuitExcel()
การสมัครเลิก
จบหมวดย่อย
บันทึกสมุดงานที่ใช้งานอยู่และออกจาก Excel:
คัดลอกรหัสรหัสดังต่อไปนี้:
ย่อย SaveActiveWorkAndQuit()
ActiveWorkbook บันทึก
การสมัครเลิก
จบหมวดย่อย
รหัสต่อไปนี้จะไม่แจ้งว่าจะบันทึกสมุดงานเมื่อออกจาก Excel หรือไม่
บันทึกสมุดงานที่เปิดอยู่ทั้งหมดและออกจาก Excel:
คัดลอกรหัสรหัสดังต่อไปนี้:
ย่อย SaveAllAndQuit()
สำหรับแต่ละ wbk ในสมุดงาน
wbk.บันทึก
ต่อไป
การสมัครเลิก
จบหมวดย่อย
ออกจาก Excel โดยไม่บันทึกการเปลี่ยนแปลงใดๆ:
คัดลอกรหัสรหัสดังต่อไปนี้:
SubQutiAndNoAlerts()
Application.DisplayAlerts = เท็จ
การสมัครเลิก
จบหมวดย่อย
ต่อไปนี้เป็นการดำเนินการทั่วไปใน VBA:
เปิดสมุดงานใหม่
คัดลอกรหัสรหัสดังต่อไปนี้:
สมุดงานเพิ่ม
รับชื่อของเวิร์กบุ๊กแรก
คัดลอกรหัสรหัสดังต่อไปนี้:
สมุดงาน(1).ชื่อ
รับจำนวนสมุดงานที่เปิดอยู่
คัดลอกรหัสรหัสดังต่อไปนี้:
สมุดงานนับ
เปิดใช้งานเวิร์กบุ๊กที่เปิดอยู่ที่สอง
คัดลอกรหัสรหัสดังต่อไปนี้:
สมุดงาน(2) เปิดใช้งาน
เปิดใช้งานสมุดงาน Chap02.xls
คัดลอกรหัสรหัสดังต่อไปนี้:
สมุดงาน ("Chap02.xls") เปิดใช้งาน
สมุดงานที่ใช้งานอยู่ในปัจจุบันจะถูกบันทึกเป็น NewChap.xls
คัดลอกรหัสรหัสดังต่อไปนี้:
ชื่อไฟล์ ActiveWorkbook.SaveAs: = "NewChap.xls"
ปิดเวิร์กบุ๊กแรก
คัดลอกรหัสรหัสดังต่อไปนี้:
สมุดงาน(1).ปิด
ปิดสมุดงานที่ใช้งานอยู่ในปัจจุบันโดยไม่บันทึกการเปลี่ยนแปลง
คัดลอกรหัสรหัสดังต่อไปนี้:
ActiveWorkbook ปิด SaveChanges:=False
ปิดสมุดงานที่เปิดอยู่ทั้งหมด
คัดลอกรหัสรหัสดังต่อไปนี้:
สมุดงาน.ปิด
หากคุณเรียกใช้ตัวอย่างล่าสุด เวิร์กบุ๊กทั้งหมดของคุณจะถูกปิดแล้ว
อย่าลืมเปิดเวิร์กบุ๊กใหม่ก่อนที่จะใช้กับเวิร์กชีต
เมื่อคุณเพิ่มแผ่นงานเดียว คุณต้องรู้วิธีเพิ่มแผ่นงานใหม่ลงในสมุดงาน รู้วิธีเลือกแผ่นงานหรือกลุ่มของแผ่นงาน และรู้วิธีตั้งชื่อ คัดลอก ย้าย และลบแผ่นงาน
ใน VB แต่ละงานต้องใช้วิธีการหรือคุณสมบัติพิเศษ
เพิ่มแผ่นงานใหม่
คัดลอกรหัสรหัสดังต่อไปนี้:
แผ่นงานเพิ่ม
รับชื่อของแผ่นงานแรก
คัดลอกรหัสรหัสดังต่อไปนี้:
ใบงาน(1).ชื่อ
เลือกแผ่นงานชื่อ "Sheet3"
คัดลอกรหัสรหัสดังต่อไปนี้:
แผ่นงาน(3).เลือก
เลือกแผ่นงานแผ่นที่หนึ่ง สาม และสี่
คัดลอกโค้ดดังต่อไปนี้: Worksheets(Array(1,3,4)).Select
เปิดใช้งานแผ่นงานชื่อ "Sheet1"
คัดลอกรหัสรหัสดังต่อไปนี้:
แผ่นงาน ("Sheet1") เปิดใช้งาน
ย้ายแผ่นงาน "Sheet2" ก่อนแผ่นงาน "Sheet1"
คัดลอกรหัสรหัสดังต่อไปนี้:
แผ่นงาน("Sheet2").ย้ายก่อน:=แผ่นงาน("Sheet1")
เปลี่ยนชื่อแผ่นงาน "Sheet2" เป็น "ค่าใช้จ่าย"
คัดลอกรหัสรหัสดังต่อไปนี้:
แผ่นงาน("Sheet2").Name = "ค่าใช้จ่าย"
รับจำนวนแผ่นงานในสมุดงานปัจจุบัน
คัดลอกรหัสรหัสดังต่อไปนี้:
ใบงาน.นับ
ลบแผ่นงาน "ค่าใช้จ่าย" ในสมุดงานปัจจุบัน
คัดลอกรหัสรหัสดังต่อไปนี้:
แผ่นงาน("ค่าใช้จ่าย") ลบ