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.

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.

Me arroja este fallo al ejecutar la macro

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

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

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

Gracias voy a probar ...