建立一个全局过程：

Public Sub CloseApplication(FullFile)

   Dim objApp

   Dim objWorkbook

   On Error Resume Next

   Set objApp = GetObject(, "Excel.Application")

   If Err.Number <> 0 Then

      Exit Sub

   End If

   objApp.DisplayAlerts = False

   For Each objWorkbook In objApp.Workbooks

      If UCase(objWorkbook.FullName) = UCase(FullFile) Then

         objWorkbook.Close False

      End If

   Next

   Set objApp = Nothing

End Sub

注：FullFile为目标Excel文件的完整路径。