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
