code ให้เปิดแผ่นงาน และให้ปิดแผ่นงานทั้งหมด

[spuangchang]

เรียน ท่านอาจารย์ที่เคารพ
เรียนสอบถามการเขียน code เพื่อสั่งให้เปิดแผ่นงานที่ชื่อว่า HOME ทุกครั้งที่เปิดจาก workbook"close all wb.xlsx" และสั่งให้ปิดงานทั้งหมดที่เปิดพร้อมกันโดยปิดตัวเองลงทั้งหมดโดยไม่มีการเซฟ เนื่องจากเวลาสั่งปิดแล้วยังมีแผ่นงานค้างอยู่อีก ขอบพระคุณมากครับ

[snasui]

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

Code: Select all

Sub Auto_Open()
    Sheets("Home").Activate
End Sub

Sub CloseAllWB()
  'Close all open workbooks.
  For Each wb In Workbooks
    wb.Close False
  Next wb
End Sub

[spuangchang]

เรียน ท่านอาจารย์ที่เคารพ เวลาที่สั่งปิดแผ่นงานทั้งหมดที่เปิดใช้จะขึ้น pop up Compile error ตามภาพครับ และเวลาถ้าบันทึกแผ่นงานที่ sheet 2 แล้วเปิดมาใหม่ โปรแกรมก็จะเปิด sheet 2 โดยไม่เปิดแผ่นงาน Home ที่ต้องการครับ ขอบพระคุณมากครับ

[snasui]

คีย์ตกไปครับ ผมกลับไปแก้ให้แล้ว ดูตามความเห็นก่อนได้เลยครับ

Code ที่เขียนให้ไป ไม่ว่าจะบันทึกที่แผ่นงานไหนเมือเปิดมาควรจะเปิดชีท HOME มาให้ครับ

[spuangchang]

กราบขอบพระคุณท่านอาจารย์มากครับ code ใช้ได้ตามความต้องการครับ

[yodpao.b]

Code: Select all

Sub CloseAllWB()
  'Close all open workbooks.
  For Each wb In Workbooks
    wb.Close False
  Next wb
End Sub

เรียนอาจาร์ยครับ " wb.Close False " หมายถึงอะไรครับ
หมายถึงชื่อไฟล์หรือเปล่าครับ
เพราะผมลองเปลี่ยนชื่อไฟล์ เครื่องก็ยังสั่งไม่เชฟไฟล์ตาม Code

[snasui]

หมายถึงปิดโดยไม่ต้อง Save ครับ

[yodpao.b]

เข้าใจแล้วครับ ขอบคุณครับ