Cambiar ruta de archivo sin abrir editor de Power Query

publicado el 4 de mayo7 años

Hola expertos

Es posible cambiar la ruta de un archivo en Power Query sin tener que abrir el editor?

Trate de grabar la macro pero al revisar el codigo no contiene nada :huh:

La idea es colocar un boton que al presionarlo me traiga un msgbox solicitando la ruta donde el usuario unicamente la agrege y en automatico power query actualice la tabla con base a la ruta agregada. Mis libros contienen la misma información por lo que la estructura de la tabla seria la misma siempre lo unico que cambiaria seria la ruta

Agradezco mucho su ayuda

Saludos

publicado el 6 de mayo7 años

Edgar

El entorno PQ es muy diferente a VBA, eso si, se pueden hacer muchos procesos para el tratamiento y transformación de datos

¿que tantas rutas seran utilizadas para procesar esos datos? ¿es muy variable y porque?

Mientras sigo investigando un poco mas, hay una alternativa pero siempre tenemos que abrir el editor, se puede crear una especie de lista desplegable para escoger una entre varias rutas... ¿te interesa?

@johnmpl @GabrielRaigosa que opinan!

Saludos

publicado el 6 de mayo7 años

Autor

Que tal Gerson

Suena muy bien lo de la lista desplegable, el unico problema es que las rutas pueden ser variables debido a que se trata de un archivo el cual se subira a una plataforma como template y varias plantas de la misma compañia ingresarán a la plataforma, descargarán el archivo y lo guardarán en la ruta que cada planta elija.

La idea es que cuando ya tengan el archivo actualicen la ruta y las tablas del PQ obtengan el resumen de acuerdo a los datos arrojados, la estructura de los archivos en cada ruta es la misma por lo que solo bastaría con actualizar la ruta para mantener actualizado el informe.

Con la opción de lista desplegable tendría que tener definidas las rutas a utilizar por cada planta para agregarlas a la lista

Saludos

publicado el 7 de mayo7 años

En 4/5/2018 at 14:08 , Edgar MF dijo:

cambiar la ruta de un archivo en Power Query sin tener que abrir el editor

- Power Query – source reference as filepath in cell

- How to auto-parametrize your Power Query queries

no te olvides de ajustar los niveles de privacidad

saludos,
hector.

publicado el 9 de mayo7 años

Autor

En ‎5‎/‎6‎/‎2018 at 23:48 , Héctor Miguel dijo:

- Power Query – source reference as filepath in cell

- How to auto-parametrize your Power Query queries

no te olvides de ajustar los niveles de privacidad

saludos,
hector.

Que tal Hector

Revisando los link la opción 1 me parece que es la se adapta a mis necesidades sin embargo intente realizar los pasos descritos

pero no tuve exito

Tendrás el ejemplo del archivo para tomarlo como referencia?

Agradezco mucho su ayuda

publicado el 10 de mayo7 años

Hola Edgar

Te tengo 2 noticias, una buena y otra mala [¿cual quieres primero?]

La buena es que tomando como referencia una celda, con la idea del enlace que mando Hector, se puede, pero lo único es que ese método no esta contemplado para carpetas, si no para un archivo, pero logre obtenerlo, para que la ruta sea automática sin abrir el editor de PQ y funciona correctamente

Para comenzar incluye todos los archivos en una subcarpeta se llamara "Archivos", dejando aparte el archivo con el proceso, es decir, en una carpeta guardas el archivo PQ y dentro de esta, una subcarpeta los demas archivos

En el archivo, reservaras una hoja para la ruta, aquí insertaras una TABLA con nombre Tabla1 y la columna con nombre "Ruta"

La mala es que si bien me ha funcionado, pero al cambiar de PC, falla hasta cierto paso, pues al parecer PQ, nos guarda algo como definido/constante y ahi se debe modificar [solo una vez] para que reconozca la nueva PC, pues ya lo hice y vuelve a funcionar

En resumen tu pega es que tienes que usar este procedimiento en distintas PC

Ya nos comentaras como te fue

Observas las pantallas

Saludos

Formato Countif VBA.rar

publicado el 10 de mayo7 años

Solo por si acaso, una miradita por aquí:

https://gallery.technet.microsoft.com/office/VBA-to-automate-Power-956a52d1

Saludos

Abraham Valencia

publicado el 15 de mayo7 años

Autor

Muchas gracias a todos por su ayuda, hasta ahora con el ejemplo de Gerson me va de maravilla solo para complementarlo le agrege una macro para colocar la ruta en la tabla y una vez colocada actualiza el PQ y listo de hecho no fue necesario dejar la columna de Archivos.

Y al menos en las PC´s donde lo he probado no tengo problema,

Agradezco mucho su ayuda ya que me a facilitado mucho el trabajo

publicado el 15 de mayo7 años

Hace 11 horas, Edgar MF dijo:

Muchas gracias a todos por su ayuda, hasta ahora con el ejemplo de Gerson me va de maravilla solo para complementarlo le agrege una macro para colocar la ruta en la tabla y una vez colocada actualiza el PQ y listo de hecho no fue necesario dejar la columna de Archivos.

Y al menos en las PC´s donde lo he probado no tengo problema,

Agradezco mucho su ayuda ya que me a facilitado mucho el trabajo

Pues me parece estupendo... ¿que dices si le damos APLAUSOS a power query!?

Saludos

publicado el 15 de mayo7 años

Autor

Me parece excelende bien merecidos los tiene

7 años7 años Gerson Pineda bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

194 Archivos
100 Comentarios
30 Revisiones
Última descarga

Nuevo mapa de municipios españoles
- 3

Saludos

Esta es la primera vez que veo un foro pago, pero me da esperanzas de que aprenderé mucho aquí.

Por fernandoflr, · publicado el domingo a las 20:211 día
Crear un loop para emitir recibos

Por Corvette, · publicado el sábado a las 04:213 días
Crear un loop para emitir recibos

Hola! anoche estuve revisando, tuve que hacer unos pequeños ajustes en la direccion de la carpeta (en vez de poner la direccion en partes la coloque toda de corrido parecida a como estaba antes) y logramos (vos y yo) que funcione!. Tambien tuve que desactivar la linea de código que bloqueaba la hoja porque sino no estaba dejando que la macro escriba el codigo de la propiedad en la celda, pero eso es lo de menos, supongo que lo puedo solucionar poniendo el bloqueo al final de la macro que creaste o desprotegiendo la celda donde se pone el codigo de propiedad.
Así que doy por supuesto que eso lo voy a poder hacer funcionar por lo que entonces voy a marcar como que ya está solucionado lo que necesitaba.
Agradezco muchisimo tu ayuda porque era sumamente tedioso tener que estar haciendo los recibos de a uno ya que la macro de envio de recibos es medio lenta. Ahora no me importa si tarda mucho, apretaré el boton y le daré todo el tiempo que se quiera tomar mientras yo hago otra cosa.
Gracias nuevamente!!!!

Por Corvette, · publicado el 9 de diciembre9 dic
Crear un loop para emitir recibos

Prueba con tu código modificado

Por JSDJSD, · publicado el 5 de diciembre5 dic
Crear un loop para emitir recibos

Sub Imagen13_Haga_clic_en() Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single Dim rutaArchivo As String Dim Email As CDO.Message Dim t As Single Application.DisplayAlerts = False Application.ScreenUpdating = False ActiveSheet.Unprotect "4324" '--- GENERAR IMAGEN DEL RECIBO --- With Range("H7:R34") Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height .CopyPicture End With With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto) .Activate .Chart.Paste '---- RUTA DEL ARCHIVO (CORREGIDO) ---- rutaArchivo = "C:\Users\Usuario\Google Drive\LOCACIONES\REC. PROPIETARIOS\" & _ Format(Range("Q20"), "mmmYY") & " - " & _ Range("Q9") & " - " & _ Range("P17") & " - " & _ Range("K19") & ".JPG" .Chart.Export rutaArchivo .Delete End With 'Guardar ruta en AK30 por compatibilidad Range("AK30").Value = rutaArchivo '--- PEGAR BLOQUE DE DATOS --- Range("AH6").Copy Range("AH9").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Range("Y7:AI33").Copy Range("H7").PasteSpecial xlPasteAll ActiveSheet.Protect "4324" ActiveWorkbook.Save '--- PREPARAR ENVÍO DEL MAIL --- Set Email = New CDO.Message correo_origen = "nqn.negocios@gmail.com" Clave_correo_origen = "wkfhaapcnjljbwju" correo_destino = Range("AK27").Value Asunto = Range("AK28") Mensaje = Range("AK29") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With '--- VALIDAR ARCHIVO ANTES DE ENVIAR --- t = Timer Do While Dir(rutaArchivo) = "" And Timer - t < 5 DoEvents Loop If Dir(rutaArchivo) = "" Then MsgBox "ERROR: El archivo no se generó: " & rutaArchivo, vbCritical Exit Sub End If '--- ENVIAR MAIL --- With Email .To = correo_destino .From = correo_origen .Subject = Asunto .TextBody = Mensaje .Configuration.Fields.Update .AddAttachment rutaArchivo On Error Resume Next .Send End With End Sub Sub powerbuttonINQ() Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single Dim rutaArchivo As String Dim Email As CDO.Message Dim t As Single Application.DisplayAlerts = False Application.ScreenUpdating = False ActiveSheet.Unprotect "4324" '--- GENERAR IMAGEN DEL RECIBO --- With Range("H7:R33") Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height .CopyPicture End With With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto) .Activate .Chart.Paste rutaArchivo = "C:\Users\Usuario\Google Drive\LOCACIONES\REC. INQUILINOS\" & _ Format(Range("Q20"), "mmmYY") & " - " & _ Range("Q9") & " - " & _ Range("P17") & " - " & _ Range("J17") & ".JPG" .Chart.Export rutaArchivo .Delete End With Range("AK30").Value = rutaArchivo Range("AH6").Copy Range("AH9").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Range("Y7:AI33").Copy Range("H7").PasteSpecial xlPasteAll ActiveSheet.Protect "4324" ActiveWorkbook.Save '--- EMAIL CONFIG --- Set Email = New CDO.Message correo_origen = "nqn.negocios@gmail.com" Clave_correo_origen = "wkfhaapcnjljbwju" correo_destino = Range("AK27").Value Asunto = Range("AK28") Mensaje = Range("AK29") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With '--- VERIFICAR ARCHIVO --- t = Timer Do While Dir(rutaArchivo) = "" And Timer - t < 5 DoEvents Loop If Dir(rutaArchivo) = "" Then MsgBox "ERROR: El archivo no se generó: " & rutaArchivo, vbCritical Exit Sub End If '--- ENVIAR --- With Email .To = correo_destino .From = correo_origen .Subject = Asunto .TextBody = Mensaje .Configuration.Fields.Update .AddAttachment rutaArchivo On Error Resume Next .Send End With End Sub

Por JSDJSD, · publicado el 5 de diciembre5 dic

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Cambiar ruta de archivo sin abrir editor de Power Query

Featured Replies

Archivado

Archivos

Nuevo mapa de municipios españoles

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Estadísticas de descargas

Mensajes

Saludos

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)