Set ExcelApp = GetObject(,"Excel Application")
If TypeName(ExcelApp) <> "Application" Then

第一句后要有错误检查，如果找不到Excel进程，后面的语句会挂起的。

   If Err.Number <> 0 Then

      Exit Sub

   End If

另外，即使有Excel进程，也不一定就是你指定的Excel工作簿打开了。还要检查文件名。

   For Each objWorkbook In ExcelApp.Workbooks

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

         'objWorkbook.Close False 关闭此工作簿

      End If

   Next