Access Erro em tempo de execução '91: Access Vba

[Kleber Bispo]

Olá, tudo certo?

 

Fiz uma macro no Access que gera um Recordset e salva os dados em arquivos Excel diferentes. Quando a macro roda a primeira vez não ocorre erro, mas ao rodar pela segunda vez, ocorre um erro em tempo de execução e diz que a varíavel não está definida. O que poderia ser? 

 

 

projeto access.zip

[AfonsoMira]

Boas, @Kleber Bispo
Tente alterar a seguinte parte do código:
 

	consulta2 = "SELECT * FROM Dados WHERE nome =" & "'" & nome_do_loop(i) & "'"
    Set rs2 = banco.OpenRecordset(consulta2, dbOpenSnapshot) 'Realiza 2ª consulta no Banco de Dados
       
    Set wb = xl.Workbooks.Open(nome_arquivo_excel)  'Abre o arquivo excel criado
    Set ws = ActiveSheet    'Define a planilha ativa
    
    ws.Range("A2").CopyFromRecordset rs2 'Copia o Recordset para o arquivo excel
    wb.Save 'Salva arquivo Excel
    wb.Close 'Fecha arquivo Excel
    rs2.Close
    
    Set rs2 = Nothing   'Limpa Recordset
    Set ws = Nothing    'Limpa a variável ws
    Set wb = Nothing    'Limpa a variável wb

Para:
 

	Set banco = CurrentDb 'Inicializa a conexão
    consulta2 = "SELECT * FROM Dados WHERE nome =" & "'" & nome_do_loop(i) & "'"
    Set rs2 = banco.OpenRecordset(consulta2, dbOpenSnapshot) 'Realiza 2ª consulta no Banco de Dados
       
    Set wb = xl.Workbooks.Open(nome_arquivo_excel)  'Abre o arquivo excel criado
    Set ws = ActiveSheet    'Define a planilha ativa
    
    ws.Range("A2").CopyFromRecordset rs2 'Copia o Recordset para o arquivo excel
    wb.Save 'Salva arquivo Excel
    wb.Close 'Fecha arquivo Excel
    rs2.Close
    
    Set banco = Nothing 'Fecha conexão
    Set rs2 = Nothing   'Limpa Recordset
    Set ws = Nothing    'Limpa a variável ws
    Set wb = Nothing    'Limpa a variável wb

 

[Kleber Bispo]

@AfonsoMira   Não deu certo. É estranho esse erro. Em todo caso, agradeço muito a atenção!