publicado el 11 de marzo9 años 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,
publicado el 11 de marzo9 años Autor 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").
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.
Codigo de conexión:
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,