Fechar instacia do EXCEL corretamente

Bom dia a todos!!

Tenho uma duvida que já me segue a algum tempo e não consigo resolver. Já pesquisei em vários locais mas não consigo solucionar.

Desenvolvi um sistema no trabalho em Access que importa vários relatórios em Excel e que tb gera relatórios em Word, porém sempre tenho problemas com a instancia que persiste em ficar aberta.

A forma que utilizo para instanciar o Excel é a seguinte:

Dim vNewXLS As Object
Dim vArqXLS As Excel.Workbook
Dim vPlanXLS As Excel.Worksheet

Set vNewXLS = Excel.Application
Set vArqXLS = vNewXLS.Workbooks.Open(strPathFile)
Set vPlanXLS = vArqXLS.Worksheets(1)

E para fechar faço normalmente o seguinte:

vArqXLS.Close
Set vArqXLS = Nothing
Set vPlanXLS = Nothing
Set vNewXLS = Nothing

Mas mesmo assim a instancia permanece aberta.

Desde já obrigado pela ajuda.

Abraço.

Edson, boa tarde!

Eu fiz um teste aqui com o código abaixo e aparentemente deu certo. Veja se atende a sua necessidade:

Código:

Dim vNewXLS As Object
Dim vArqXLS As Excel.Workbook
Dim vPlanXLS As Excel.Worksheet

Set vNewXLS = New Excel.Application
Set vArqXLS = vNewXLS.Workbooks.Open(strPath)
Set vPlanXLS = vArqXLS.Worksheets(1)

'E para fechar faço normalmente o seguinte:
vArqXLS.Close
Set vArqXLS = Nothing
Set vPlanXLS = Nothing
Set vNewXLS = Nothing

Edson boa tarde,

Antes de executar seu sistema, abra o Gerenciador de Tarefas e verifique se tem algum Excel executando.
Caso tiver, finalize-o. Em seguida rode seu aplicativo e veja se o Excel ainda persiste no Gerenciador do Windows.

Att,

Boa tarde!!

Obrigado pela ajuda pessoal.

O que acontece é exatamente isso Alexandre.

Já fiz esse teste.
Antes de rodar fecho tudo o que está aberto com o Excel e confirmo no gerenciador de tarefas que não tem nenhuma instancia aberta mas após eu importar abro novamente o gerenciador e lá está uma instancia aberta mesmo utilizando o código que postei acima.

Obrigado.

Edson,

Acredito que o exemplo abaixo possa te ajudar. Segue:

Sub EncerraExcel()
Dim xlApp       As Excel.Application
Dim xlWkb       As Excel.Workbook
Dim blnIsOpen   As Boolean
Dim strPath     As String
On Error GoTo ErrHandler

   'Instancia o Excel
   strPath = ""
   Set xlApp = New Excel.Application
   Set xlWkb = xlApp.Workbooks.Open(strPath)
   blnIsOpen = True
   
   '==========================================================='
   'Execute seu código aqui...
   
   
   
 
 
   '==========================================================='
 
  'Finaliza a aplicação
   xlApp.Quit
   blnIsOpen = False

ExitHere:
   Exit Sub

ErrHandler:
   'Verifica se o Excel está instanciado
   If blnIsOpen = True Then
       xlApp.Quit
   End If
   MsgBox "& Err.Description &" & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, "EncerraExcel"

   Resume ExitHere

End Sub

Se der certo, nos avise.

Boa sorte.

Abs.