可以用VBS打开Excel文件，写完后再关闭。也可以在打开之前，检查这个文件有没有打开。

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文件的完整路径和名称。