en access funciona en excel no.... porke????

[pandoro]

Mi codigo es este:

Código [Seleccionar] Expandir


Data1.Visible = True
DBGrid1.Visible = True
Dim contador2, cont As Integer
Dim code_client As String
Dim consulta, consulta2 As String

contador2 = 0
cont = 0

Data1.Connect = "Excel 8.0;"
Data3.Connect = "Excel 8.0;"
Data1.DatabaseName = App.Path & "\nuevo.xls"
Data3.DatabaseName = App.Path & "\nuevo.xls"

consulta = "select lista$.[Code client] from [lista$] group by lista$.[Code client]"

Data1.RecordSource = consulta
Data1.Refresh

Text2.Text = "Encontrados: " & Data1.Recordset.RecordCount & " registros."

Do While Not Data1.Recordset.EOF
code_client = Data1.Recordset.Fields(0)

    consulta2 = "SELECT lista$.[Code client], lista$.[N° colis CWF], Sum(lista$.[Qté livrée]) AS [SumaDeQté livrée], lista$.[Réf Cde client], lista$.[N° expédition CWF], lista$.[N° expédition CEPL] From [lista$] where lista$.[Code client]=""" & code_client & """ GROUP BY lista$.[Code client], lista$.[N° colis CWF], lista$.[Réf Cde client], lista$.[N° expédition CWF], lista$.[N° expédition CEPL]"

    Data3.RecordSource = consulta2
    Data3.Refresh
    Do While Not Data3.Recordset.EOF
        Form2.Show
        For cont = 0 To 5
            Form2.Text1(cont).Text = Data3.Recordset.Fields(cont)
        Next
        Data3.Recordset.MoveNext
    Loop
Data1.Recordset.MoveNext
Loop

Data1.Recordset.MoveFirst
Data3.Recordset.MoveFirst


Pero exactamente el mismo en access me funciona pero este en excel cuando llega a Data3.Refresh me da error y dice que " Pocos parámetros. Se esperaba 1."

alguien me puede ayudar???

[CeLaYa]

ese error que te da, sale cuando en la consulta que haces a la tabla (en este caso a tu hoja de excel) haces referencia a un campo que no existe, por ejemplo que tengas un campo llamado "Code Client" y que a la hora de hacer la consulta lo escribiste "Code Clint", revisa que los nombre de los campos de tu hoja de excel sean iguales a los de la consulta <sql>