Tenho uma aplicação em VB que o resultado de uma pesquisa no SQL é salva uma planilha no excel.

O problema é que após o termino da execução o excel fica aberto na memoria da maquina.

 

Como faço para fechar o mesmo EXCEL. Segue abaixo pedaço do codigo.

 

Dim i As String
       'Carregar o Excel:
        Set exclApp = CreateObject("Excel.Application")
       'Crie um WorkBook:
        Set exclBook = exclApp.Workbooks.Add
       'Defina a planilha ativa p/ facilitar o trabalho:
        Set exclSheet = exclApp.ActiveWorkbook.ActiveSheet
       'INIBE o aplicativo excel
        exclApp.Application.Visible = True
       i = Dir(VDirArqxls & VNomearqxls & Format(VDtaCBL, "dd_mm_yyyy") & ".xls")
       If i <> "" Then
          Kill VDirArqxls & VNomearqxls & Format(VDtaCBL, "dd_mm_yyyy") & ".xls"
       End If
    'salvando a planilha
      ActiveWorkbook.SaveAs FileName:=VDirArqxls & VNomearqxls & Format(VDtaCBL, "dd_mm_yyyy") & ".xls", FileFormat:=xlNormal _
     , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

==========================================================

No final do processo executo os comandos abaixo:

 'limpa a memoria'
    Set exclSheet = Nothing
    Set exclBook = Nothing
    Set exclApp = Nothing

    MsgBox "Término do Processamento"
    Unload Me