Snasui Excel Forum

Posted: **Mon May 28, 2012 8:04 pm**

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

Posted: **Mon May 28, 2012 9:11 pm**

ลองปรับ 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

Posted: **Mon May 28, 2012 9:36 pm**

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

Posted: **Mon May 28, 2012 9:51 pm**

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

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

Posted: **Mon May 28, 2012 10:04 pm**

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

Posted: **Tue May 29, 2012 1:41 pm**

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

Posted: **Tue May 29, 2012 1:52 pm**

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

Posted: **Tue May 29, 2012 2:05 pm**

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

Snasui Excel Forum

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

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

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

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

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

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

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

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

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