Ir para conteúdo
Fórum Script Brasil
  • 0

SQL Excel - Problema no código


ipittigliani

Pergunta

Pessoal, tentei fazer o código de SQL no Excel deste vídeo ("https://www.youtube.com/watch?v=HHwNgYYDHsc"), mas estou encontrando o seguinte erro na linha rs_Consulta.Open str_consulta, ado_conexao.

"Erro em tempo de execução '3001' Erro de definição de aplicativo ou e definição de objeto"

Sabem me ajudar?

Sub Listar_dados()
    
    Dim rs_Consulta As ADODB.Recordset
       
    
    'Chama rotina de conexão
    Call Conectar_Excel 'Código está abaixo em azul
    
    'Seta RecordSet
    Set rs_Consulta = CreateObject("ADODB.Recordset")
    
    'Define da Query
    str_consulta = Planilha2.Range("d6")
    
    'Abre Recordset
    rs_Consulta.Open str_consulta, ado_conexao --------> ERRO NESSA LINHA
    
    'Cola Recordset na planilha
    Planilha2.Range("A12").CopyFromRecordset rs_Consulta
    
    'Fecha Conexão
    rs_Consulta.Close
    Set rs_Consulta = Nothing
    
End Sub

Sub Conectar_Excel()
    
    Dim Caminho As String
    Dim Arquivo As String
    
    'Planilha2.activate
    Caminho = Planilha3.Cells(6, 4)
    Arquivo = Planilha3.Cells(8, 4)
    
    'Caminho = "C:\Users\ipittigliani\Desktop\Projeto Bate de Carteira\Tentativa 2\"
    'Arquivo = "MMA_Abr19.xlsx"
    
    'Define String de Conexão
    str_conexao = _
        "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
            "DSN=TESTE_SQL;DBQ=" & Caminho & Arquivo & ";" _
            & "ReadOnly=0;DefaultDir=" & Caminho & ";" _
            & "DriverId=1046;FIL=excel 12.0;MaxBuffersize=2048;PageTimeout=5;"
            
    'Seta ADODB
    Set ado_conexao = CreateObject("ADODB.Connection")
    
    'Abre Conexão
    ado_conexao.Open str_conexao
    

End Sub
 

 

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...