none
erro - run-time error'-2147217904 (80040e10)': no value given for one more required parameters RRS feed

  • Pergunta

  • Boa noite a todos 

    estou tentado rodar a macro abaixo no meu trabalho, mas esta dando o erro erro - run-time error'-2147217904 (80040e10)': no value given for one more required parameters. tentei rodar em casa e deu certo, nao sei o que esta ocorrendo. se alguémpuder me ajudar eu agradeço.

    Sub LIMITE()
    '--DECLARAÇÃO DE VARIAVEIS--
    Dim ConexaoPlan As New ADODB.Connection
    Dim rsConsulta1 As New ADODB.Recordset
    Dim sql As String
    Dim Coluna As Single

    '--ABERTURA DA CONEXÃO--
    ConexaoPlan.ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0; Data Source =" & ThisWorkbook.FullName & " ;Extended Properties=Excel 8.0;"
    ConexaoPlan.Open

    '--STRING SQL--
    sql = "Select [COD CLIENTE],[NOME DO CLIENTE],[CLASSIFICACAO],[GRUPO  DO CLIENTE],[DETAIL SBU],[CREDITO ATUAL],[COLIGADAS],[STATUS],[CLASSIFICACAO CREDITO] From [XXPPG – AR Relatorio Credito$]"

     
    '--ABERTURA DA CONSULTA--
    rsConsulta1.Open sql, ConexaoPlan, adOpenKeyset, adLockOptimistic

        For Coluna = 0 To rsConsulta1.Fields.Count - 1
            Sheets("Customers report").Cells(1, Coluna + 1) = rsConsulta1.Fields.Item(Coluna).Name
        
        
        Next
        
        Sheets("Customers report").Range("A2").CopyFromRecordset rsConsulta1

    '--FECHAMENTO DA CONSULTA E CONEXÃO--
    rsConsulta1.Close
    ConexaoPlan.Close

    End Sub

    sábado, 17 de agosto de 2019 01:13