用GetObject(,"Excel.Application")函数查找有没有Excel进程打开，再遍历，以Excel文件名找到对应的Excel进程，再操作。

   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.Worksheet(1).cells(1,1).value=""

      End If

   Next

   Set objApp = Nothing

其中：FullFile为你的Excel工作簿的名称，包括路径。