With Conexion_Excel .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source= " & Ruta & ";Extended Properties=Excel 8.0;" .Open End With