SentenciaSQL no me funciona en 365 y si en 2016

[patriciomates]

SentenciaSQL.xls

Hola , estoy intentando hacer consulta SQL con este archivo pero no consigo que funcione en OFFICE 365,  sin embargo en la version office 2016 si funciona.

[Antoni]

Tengo OFFICE 365 y a mi me funcionan todas las sentencias SQL (Principal!A3, A5, A7:A9)).

Si  son ordenadores distintos, puede que sea un problema del driver.

No se que más decirte.

[patriciomates]

Me arroja este fallo al ejecutar la macro

[Abraham Valencia]

Hola, como ya te adelantó Antoni, es solo cuestión de Driver.  Prueba con:

https://www.microsoft.com/es-ES/download/details.aspx?id=54920

Saludos

[patriciomates]

Tenéis razón son los equipos y el driver en este equipo que uso ahora si que me funciona. Ahora lo que me sucede es que no me funciona la consulta.

 

SELECT cliente_id, prenda_id, talla_id, codigobarras_id, fechaalta_id, COUNT(*) "TOTALES" FROM  [Datos$] WHERE fechaalta_id < 43465 GROUP BY cliente_id, prenda_id, talla_id

 

Además he encontrado esta página después intentaré actualizar los drivers en el otro equipo.

https://www.connectionstrings.com/excel/

 

ConsultaSQL.xlsm

[AlexanderS]

Hola @patriciomates y demás compañeros!

Prueba sustituir esta parte del código:

cn.ConnectionString = "DRIVER={Microsoft Excel Driver (*.xls)};" & _
                              "DBQ=" & ThisWorkbook.Path & "\" & "ConsultaSQL.xlsm"
cn.Open

 

Por esta:

cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & "ConsultaSQL.xlsm" _
& ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"

 

Adjunto por si acaso.

 

Saludos a todos!!

 

ConsultaSQL.xlsm

[patriciomates]

Gracias voy a probar ...