[Resolvido]Código VBA não fecha excel após importar dados

Boa tarde

Pesquisando aqui no forum e em outras documentações eu consegui criar um códido para importar dados de uma planilha do Excel 2013 para uma tabela do Access 2013.

O código é:

Código:

   If Len(Me.campo_caminho_arquivo & vbNullString) = 0 Then ' Testa se local contém alguma coisa
        MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
        Me.campo_caminho_arquivo.SetFocus
        Exit Sub
    End If
    If Len(Dir(Me.campo_caminho_arquivo)) = 0 Then ' Testa a existência do arquivo
        MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
        Me.campo_caminho_arquivo.SetFocus
        Exit Sub
    End If
    
    FILE = Me.campo_caminho_arquivo 'faz FILE como o diretório do arquivo + arquivo
    
    Dim msgConfirmacao As VBA.VbMsgBoxResult
    
    msgConfirmacao = MsgBox("Deseja Realmente incluir os dados no Banco de Dados?", vbQuestion + vbYesNo, "Importar")
    
    Dim appExcel As Excel.Application
    Dim wb As Excel.Workbook
    Dim sh As Excel.Worksheet
    Dim strValue As String
    Dim strTable As String
    
    strTable = "tbl_CadDIDs"
    Set appExcel = CreateObject("Excel.Application")
    Set wb = appExcel.Workbooks.Open(FILE)
    For Each sh In wb.Sheets
    Debug.Print sh.Name
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, FILE, True, sh.Name & "!"
    Next
    wb.Close
    On Error GoTo 0
    
    MsgBox "Importação Concluída com Sucesso!!"
    
    Forms!fml_CadDIDs.Requery
    Me.campo_caminho_arquivo.Value = ""
    DoCmd.GoToRecord , , acLast
    Me.bt_novo.SetFocus

End Sub


Quando eu faço a importação, ela ocorre com sucesso. Os dados da planilha são gravados com sucesso na tabela, sem erros.

Porém eu vejo que, ao iniciar a importação o arquivo selecionado é aberto no Excel, e após concluir a importação o arquivo não é fechado. O Excel mantém o arquivo aberto.

Pelo que entendi do código, na linha Set wb = appExcel.Workbooks.Open(FILE) o arquivo é aberto. E wb.Close talvez fosse a linha que fecharia.

Mas não fecha. Tentei configurar alguma linhas pesquisando aqui no forum e também outras fontes mas sem sucesso.

Se algum amigo puder me ajudar, agradeço desde já.

Muito obrigado!!!

Enio Eltz Filho

Bom dia Alexandre

Antes de tudo gostaria de agradecer pela rápida e acertiva resposta em relação a situação.

Adicionei a linha Set wb = Nothing conforme você instruiu e está funcionando corretamente.

Na verdade, lembro que quando eu pesquisei os primeiros códigos para realizar a importação que preciso, essa linha existia. Provavelmente nos meus testes para atingir outros objetivos eu copiei código sem essa linha e não percebi. O que ocasionou o problema.

Muito obrigado!!!

Enio Eltz Filho

Bom dia

Assim como eu, outras pessoas podem precisar realizar a importação. Então vou colocar aqui o que eu fiz para ficar de exemplo. É claro que existe outras maneiras de fazer e outras necessidades, mas da forma descrita abaixo atendeu a minha necessidade.


No formulário eu criei uma caixa de texto para mostrar o diretório e o arquivo a ser importado (campo_caminho_arquivo), um botão de comando (bt_com_1) para buscar o arquivo no diretório e um botão de comando para realizar a importação (bt_importa_did).

No botão de comando para buscar o arquivo, o procedimento do evento "ao clicar" executa isso:

Código:

Private Sub bt_com_1_Click()
    Call AbrirArquivo

Em módulos, foi usado esse código:

Código:

Function AbrirArquivo(Optional strTitulo As String) As String
Dim fd As FileDialog
Dim ARQ As String
Dim i As Integer

    Set fd = Application.FileDialog(msoFileDialogOpen)
    
        With fd
        .Filters.Clear
        .Filters.Add "Arquivos Excel", "*.xlsx", 1 'usado para mostrar somente arquivos .xlsx do Excel
        .InitialFileName = "C:\diretorio_que voce_vai_usar\"
                
            If strTitulo <> "" Then
                fd.Title = strTitulo
            End If
        
            If fd.Show = -1 Then
                For i = 1 To fd.SelectedItems.Count
                Forms!fml_CadDIDs!campo_caminho_arquivo = fd.SelectedItems(1)
                Exit For
                Next
            End If
            
        End With
  
    Set fd = Nothing
End Function

Ao selecionar o arquivo a caixa de texto "campo_caminho_arquivo" é preenchida com diretório + nome do arquivo.

No botão de comando para importar, o procedimento do evento "ao clicar" executa isso:

Código:

Private Sub bt_importa_did_Click()

    If Len(Me.campo_caminho_arquivo & vbNullString) = 0 Then ' Testa se local contém alguma coisa
        MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
        Me.campo_caminho_arquivo.SetFocus
        Exit Sub
    End If
    If Len(Dir(Me.campo_caminho_arquivo)) = 0 Then ' Testa a existência do arquivo
        MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
        Me.campo_caminho_arquivo.SetFocus
        Exit Sub
    End If
    
    FILE = Me.campo_caminho_arquivo 'faz FILE como o diretório do arquivo + arquivo
    
    If MsgBox("Deseja Realmente incluir os dados no Banco de Dados?", vbQuestion + vbYesNo, "Importar") = vbYes Then
        
    Dim appExcel As Excel.Application
    Dim wb As Excel.Workbook
    Dim sh As Excel.Worksheet
    Dim strValue As String
    Dim strTable As String
    
    strTable = "tbl_CadDIDs" 'tabela
    Set appExcel = CreateObject("Excel.Application")
    Set wb = appExcel.Workbooks.Open(FILE) 'abre o arquivo
    For Each sh In wb.Sheets
    Debug.Print sh.Name
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, FILE, True, sh.Name & "!" 'importa
    Next
    wb.Close
    Set wb = Nothing
    
    MsgBox "Importação Concluída com Sucesso!!" 'mensagem de sucesso
    
    Forms!fml_CadDIDs.Requery
    Me.campo_caminho_arquivo.Value = ""
    DoCmd.GoToRecord , , acLast
    Me.bt_novo.SetFocus
    
    Else
        Cancel = True
        Me.campo_caminho_arquivo.Value = ""
        DoCmd.GoToRecord , , acLast
        Me.bt_com_1.SetFocus
    End If

End Sub

Ao clicar no botão para importar, uma msgbox é mostrada perguntando se você quer importar. Clicando em sim, importa os arquivos. Clicando em não, limpa a caixa de texto "campo_caminho"arquivo", vai para o último registro do formulário e foco no botão para buscar arquivo novamente.

Saudações!

Enio Eltz Filho.