本示例保存所有打开的工作簿,然后退出 ET。

For Each w In Application.Workbooks

w.Save

Next w

Application.Quit