Para enviar un informe de tabla dinámica automáticamente por correo electrónico usando VBA en Excel, puedes seguir estos pasos. Este ejemplo asume que estás utilizando Outlook para enviar correos. El proceso se considera de nivel intermedio en VBA, así que asegúrate de estar familiarizado con la creación y manipulación de macros en Excel.

• Prepara Tu Tabla Dinámica:

Asegúrate de tener tu tabla dinámica lista en una hoja de Excel. Vamos a suponer que esta tabla está en una hoja llamada «Informe».

• Abre el Editor de VBA:
• Ve a Excel y presiona `ALT` + `F11` para abrir el Editor de VBA.
• En el menú del editor, elige `Insertar` > `Módulo` para agregar un nuevo módulo.
• Código VBA para Enviar el Correo:

Copia y pega el siguiente código en el módulo. Este código asume que estás enviando un correo desde Outlook y que deseas adjuntar la hoja que contiene la tabla dinámica.

   Sub EnviarInformePorCorreo()

       ' Define las variables
       Dim OutlookApp As Object
       Dim OutlookMail As Object
       Dim wb As Workbook
       Dim ws As Worksheet
       Dim Ruta As String
       Dim NombreArchivo As String
       
       ' Asignar el libro de trabajo actual
       Set wb = ThisWorkbook
       
       ' Asignar la hoja que contiene la tabla dinámica
       Set ws = wb.Sheets("Informe")

       ' Ruta donde se guardará el archivo temporal
       Ruta = Environ("TEMP") & ""

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto