Sub Main() ' 关闭当前文件 On Error GoTo Err Application.ActiveDesignFile.Close On Error GoTo 0 Exit Sub Err: MsgBox Err.Description Resume Next End Sub