VB.NET - Usuário fecha Excel mas processo continua aberto

Question

Pessoal,

Bom dia!

Estou com o seguinte problema:

Estou usando VB.NET para gerar um relatório em Excel para o usuário. Este arquivo não é salvo no HD, só aberto na tela.

    Sub GeraExcel()

        Try
            ' Usando uma instância já aberta do Excel
            Excelobj = GetObject(, "Excel.Application")
        Catch ex As Exception
            'Criando uma nova instância do Excel
            Excelobj = CreateObject("Excel.Application")
        Finally
            Excelobj.Workbooks.Add()
        End Try

    End Sub

Tanto faz se uso uma instância aberta do Excel ou abro uma nova, quando o usuário fecha o Excel o processo continua rodando.

Alguém tem alguma idéia que possa ajudar?

Desde já grato.

Answer 1

porque vc nao coloca um codigo em uma timer para verificar se ele esta aberta e se estiver da kill no processo ?

Answer 2

Não posso dar um kill porque o Excel deverá ser fechado pelo próprio usuário quando ele terminar de fazer uso do relatório.

Answer 3

Já tentou fazer o dispose no objeto Excel?

---

A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

Answer 4

entao de kill apos o Excel ser fechado em seu evento 

Answer 5

Mr. GMSOFT,

Já sim. Também não deu certo.

Também tentei atribuir Nothing à variável, tentei usar o GC.Collect mas nada funciona.

Answer 6

Não tem como dar kill.

Primeiro porque o próprio usuário irá fechar o arquivo quando não precisar mais dele.

Segundo o usuário pode estar com outras planilhas abertas e o kill fecha sem perguntar se você quer salvar.

Answer 7

Onde esta declarada essa variável ExcelObj? Essa variável é global?

---

A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

Answer 8

A variável é Global.

Foi declarada na Classe do Form.

Answer 9

Já tentou usar as ferramentas do .net do office?

https://msdn.microsoft.com/pt-br/library/dd264733.aspx

Deve ter alguma classe ou objeto que esta impedindo a aplicação de fechar totalmente... 
Pode se que tenha o mesmo problema com os interops, mas só tentando. 

---

Desenvolvedor de sistemas VB6, ASP, ASP.NET, C#, VB.NET, SQL Server, Oracle e MySql.

Answer 10

Coloca por favor o codigo completo vou testar aqui,sendo global tem que fechar esse processo senão ocorre esse problema mesmo.

---

A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

Answer 11

Já tentou usar as ferramentas do .net do office?

https://msdn.microsoft.com/pt-br/library/dd264733.aspx

Deve ter alguma classe ou objeto que esta impedindo a aplicação de fechar totalmente... 
Pode se que tenha o mesmo problema com os interops, mas só tentando. 

---

Desenvolvedor de sistemas VB6, ASP, ASP.NET, C#, VB.NET, SQL Server, Oracle e MySql.

Eric,

Não posso usar o interop. Aqui tem uma salada de versões do Office. Da versão 2000 até 2007.

Triste realidade. :(

Answer 12

Coloca a parte da declaração do ExcelObj ja que não esta usando interop

---

A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

Answer 13

Coloca a parte da declaração do ExcelObj ja que não esta usando interop

---

A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel

Segue:

        Dim Excelobj As Object = Nothing

        Try
            Excelobj = GetObject(, "Excel.Application")
        Catch ex As Exception
            Excelobj = CreateObject("Excel.Application")
        Finally           

Excelobj.Workbooks.Add()
        End Try

' Finalizando a variável

        Excelobj = Nothing
        GC.Collect()

Obrigado.

Answer 14

Tente isto:

Finally
                For Each process1 As Process In Process.GetProcessesByName("Excel")
                    process1.Kill()
                Next
            End Try

No meu aqui vem dando certo, mas lembre-se se houver alguma instância do Excel aberta ele irá fechar todas.

E há nesse caso ele fechará a tela, este é um tipo de código que você usa realmente para não mostrar o Excel, após a conclusão de alguma ação.

Answer 15

Bom dia,

Por falta de retorno do usuário, esta thread será encerrada.

Caso seja necessário, por gentileza, abra uma thread nova.

Atenciosamente

---

Marcos SJ

Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.