Ir para conteúdo
Fórum Script Brasil

ipittigliani

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre ipittigliani

ipittigliani's Achievements

0

Reputação

  1. 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
×
×
  • Criar Novo...