Mi estimados, a la hora que ejecuto la consulta que salta un error "Nombre no valido" Adjunto Imagen y la consulta que realizo estoy trabajando con un excel 2016, pero con otros archivos no he tenido problemas.

Sub Reporte_Consolidado()

Application.ScreenUpdating = False

UfR = Resumen.Range("A" & Cells.Rows.Count).End(xlUp).Row + 1

Conexion.Abrir_Conexion


Consulta = "SELECT H.Lote,H.Variedad,DatePart(yy,H.FechaAnalisis),H.Yema,H.Fertilidad,L.FechaPoda,H.FECHAANALISIS " & _

           "FROM ([Fertil$] H INNER JOIN [Lotes$] L ON H.Lote=L.Lote)"


Rst.Open Consulta, Cnx, , , adCmdText


Resumen.Range("A2:H" & UfR).ClearContents

Resumen.Range("A2").CopyFromRecordset Rst

Resumen.Select


Conexion.Cerar_Conexion


End Sub

[/CODE]

Codigo de conexión:

[CODE]Sub Abrir_Conexion()
Cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & _
";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
End Sub

Sub Cerar_Conexion()
Rst.Close
Set Rst = Nothing
Cnx.Close
Set Cnx = Nothing
End Sub[/CODE]

a la espera de su apoyo

saludos,

Muchas gracias Tema Solucionado

solución el nombre de la hoja era diferente (Hoja.Name="Fetil") y el nombre de la hoja es sheets("Fertilidad").

Felicidades @Muscaria por resolverlo y publicarlo.

Mis respetos.