With Workbooks("a.xls")<br /> .Saved = True<br /> .Close<br />End With<br />關閉用:<br />application.quit <br /><br />[節錄自網管人]