Aplicativo do Office não fecha após a automação do cliente Visual Studio .net

• Declare cada objeto como uma nova variável. Por exemplo, alterar a seguinte linha de código

  oBook = oExcel.Workbooks.Add()
  					

  para o seguinte:

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

• Use System.Runtime.InteropServices.Marshal.ReleaseComObject em um loop até que ela retorna 0 quando terminar de usar um objeto. O System.Runtime.InteropServices.Marshal.ReleaseComObject diminui a contagem de referência do RCW e o loop irá garantir que o componente COM subjacente é lançado independentemente de como muitas vezes tem reinseridos no CLR.
• Para liberar a referência à variável, definir a variável igual a Nada ou Nulo.
• Use o Sair método do objeto de aplicativo do Office para informar o servidor desligar.

Voltar para o início | Submeter comentários

Etapas para reproduzir o comportamento

1. Inicie Visual Studio .net.
2. No menu arquivo , clique em novo e clique em projeto. Em Projetos de Visual Basic, selecione Windows Application e clique em OK. Form1 é criado por padrão.
3. Adicione uma referência à Biblioteca de objetos do Microsoft Excel. Para fazer isso, execute estas etapas:
   1. No menu Project , clique em Adicionar referência.
   2. Na guia COM , localize a biblioteca de objeto do Excel e clique em Selecionar.
      
      Para o Microsoft Excel 2002: Microsoft Excel 10.0 Object Library
      
      Observação Se você não tiver feito isso, é recomendável que você Baixe e instale o Microsoft Office XP Primary Interop Assemblies (PIAs). Para obter informações adicionais sobre PIAs do Office XP, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
      328912

      (http://support.microsoft.com/kb/328912/ )

      Assemblies de interoperabilidade primários (PIAs) de Microsoft Office XP estão disponíveis para download
      Para Microsoft Office do Excel 2003: Microsoft Excel 11.0 Object Library
   3. Clique em OK na caixa de diálogo Add References para aceitar as seleções.
4. No menu Exibir , clique em Ferramentase, em seguida, arraste um controle Button para Form1.
5. Clique duas vezes em Button1. Aparece a janela de código para o formulário.
6. Adicione o seguinte código na parte superior do Form1:

   Imports Microsoft.Office.Interop
   					

7. Substitua o seguinte código na janela de código

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

   com o seguinte:

   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. Pressione F5 para executar o aplicativo.
9. Abra o Gerenciador de tarefas do Windows. Visual Studio, exibir o Janela de saída para ver as mensagens de depuração. Clique no botão de comando e observe que uma instância do Excel. exe aparece na lista de processos .
10. A instância do Excel ainda é executado na lista de tarefas ainda Após o aplicativo dormindo. Feche a caixa de diálogo e observe que Excel não aparece mais na lista de processos .
11. Ao implementar as etapas na seção "Resolução", Encerra o aplicativo do Office depois de liberar a última variável. Substituir o função na etapa 5 com o seguinte código:

      Private Sub NAR(ByVal o As Object)
        Try
          While (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > 0)
          End While
        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 
    {
        while (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > 0) ;
    }
    catch {}
    finally 
    {
        o = null;
    }
}

Solução de problemas

Voltar para o início | Submeter comentários