使用 Visual Studio .NET 客户端执行自动化功能后不退出 Office 应用程序

• 将每个对象声明为新变量。例如，将下面的代码行

  oBook = oExcel.Workbooks.Add()
  					

  更改为以下内容：

  dim oBooks as Excel.Workbooks
  oBooks = oExcel.Workbooks
  oBook = oBooks.Add()
  					

• 停止使用某个对象时，应使用 System.Runtime.InteropServices.Marshal.ReleaseComObject。这样可以减少 RCW 的引用计数。
• 要释放对变量的引用，请将变量设置为等于 Nothing 或 Null。
• 使用 Office 应用程序对象的 Quit 方法通知服务器关闭。

回到顶端

重现问题的步骤

1. 启动 Visual Studio .NET。
2. 在文件菜单上，单击新建，然后单击项目。在 Visual Basic 项目下，选择 Windows 应用程序，然后单击确定。默认情况下会创建 Form1。
3. 添加对 Microsoft Excel 对象库的引用。为此，请按照下列步骤操作：
   1. 在项目菜单上，单击添加引用。
   2. 在 COM 选项卡上，找到 Excel 对象库，然后单击选择。
      
      对于 Microsoft Excel 2002：Microsoft Excel 10.0 对象库
      
      注意：如果您尚未执行此操作，Microsoft 建议您下载并安装 Microsoft Office XP 主 Interop 程序集 (PIA)。 有关 Office XP PIA 的其他信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：
      328912? (http://support.microsoft.com/kb/328912/ ) Microsoft Office XP 主 interop 程序集 (PIA) 可供下载
      对于 Microsoft Office Excel 2003：Microsoft Excel 11.0 对象库
   3. 在添加引用对话框中单击确定，接受您的选择。
4. 在视图菜单上，单击工具箱，然后将一个按钮控件拖到 Form1 上。
5. 双击 Button1。出现该窗体的代码窗口。
6. 将以下代码添加到 Form1.vb 的顶部：

   Imports Microsoft.Office.Interop
   					

7. 将代码窗口中的以下代码

       Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
       End Sub
   					

   替换为：

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim oApp As New Excel.Application()
       Dim oBook As Excel.Workbook = oApp.Workbooks.Add
       Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
   
       oSheet = Nothing
       oBook.Close(False)
       oBook = Nothing
       oApp.Quit()
       oApp = Nothing
   
       Debug.WriteLine("Sleeping...")
       System.Threading.Thread.Sleep(5000)
       Debug.WriteLine("End Excel")
   End Sub
   					

8. 按 F5，运行该应用程序。
9. 打开 Windows 任务管理器。在 Visual Studio 中，显示“输出”窗口，查看调试信息。单击命令按钮并注意 Excel.exe 的一个实例会显示在进程列表中。
10. 即使在应用程序停止休眠后，Excel 的实例仍然会在任务列表中运行。关闭对话框并注意 Excel 会从进程列表中消失。
11. 执行“解决办法”部分的步骤后，Office 应用程序会在释放最后一个变量后退出。将第 5 步中的函数替换为以下代码：

      Private Sub NAR(ByVal o As Object)
        Try
          System.Runtime.InteropServices.Marshal.ReleaseComObject(o)
        Catch
        Finally
          o = Nothing
        End Try
      End Sub
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oApp As New Excel.Application()
        Dim oBooks As Excel.Workbooks = oApp.Workbooks
        Dim oBook As Excel.Workbook = oBooks.Add
        Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
    
        NAR(oSheet)
        oBook.Close(False)
        NAR(oBook)
        NAR(oBooks)
        oApp.Quit()
        NAR(oApp)
    
        Debug.WriteLine("Sleeping...")
        System.Threading.Thread.Sleep(5000)
        Debug.WriteLine("End Excel")
    End Sub
    					

private void NAR(object o)
{
    try 
    {
        System.Runtime.InteropServices.Marshal.ReleaseComObject(o);
    }
    catch {}
    finally 
    {
        o = null;
    }
}

回到顶端

疑难解答

回到顶端