Abrir archivo de Excel + Ejecutar consulta de Power Query + Enviar por correo

🔥 APRENDE A AUTOMATIZAR UN REPORTE EN EXCEL‼️

👉 Deja que Excel haga el trabajo por ti y deja que sólo procese y envie por correo. Quieres aprender

❓ Yo te enseño

Ver video Automatizar Reporte en Excel

Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.

Windows + Power Query + Correo

A continuación, va la lista de pasos que debes seguir:

    • Consolidar archivos de una carpeta usando Power Query
    • Macro para actualizar query y enviar por correo
    • Crear .BAT para abrir el archivo de Excel
    • Programar que el archivo se abra a cierta hora

    Macro para ejecutar la consulta y enviar por correo

    'Mi canal de YouTube | youtube.com/user/sergioacamposh
    'Mi Sitio | exceleinfo.com
    'Descarga mi add-in | addin.exceleinfo.com
    'Obtén la Certificación Excel Expert | exceleinfo.com/certificacion-mos
    '
    Private Sub Workbook_Open()
    
    ActiveWorkbook.Queries("Por_mes").Refresh
       
    'Seleccionamos el rango de celdas a enviar Select
    Sheets("Por mes (2)").ListObjects("Por_mes").Range.Select
    
    ActiveWorkbook.EnvelopeVisible = True
    
        'Llamamos al envío...
        With ActiveSheet.MailEnvelope
           .Item.To = "sergio@exceleinfo.com"
           '.Item.cc = "correo1@dominio.com"
           '.Item.bcc = "correo2@dominio.com"
           .Item.Subject = "Concentrado"
           .Introduction = "Se adjunta resumen por mes"
           .Item.Send
        End With
    
    ActiveWorkbook.Close SaveChanges:=True
    
    End Sub
    

    Descarga el archivo de ejemplo

    Abrir, Power Query y Enviar por correo – EXCELeINFO.zip

    ⭐ Si te gustó este tutorial, por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.

    Leave a Comment

    Your email address will not be published. Required fields are marked *

    Scroll to Top