Macro para actualiza tu informe por Power Query y Enviarlo por correo electrónico

0



El siguiente código tienes que copiar y pegar en ThisWorkbook de tu libro. Sigue los siguientes pasos:


1. Pestaña Hoja1 >> Botón derecho del Ratón >> Ver código.



2. En el Explorador de proyectos, colócate en ThisWorkbook



3. Crea un evento Workbook de la clase Open




4. A continuación pega el código:


Private Sub Workbook_Open() ActiveWorkbook.Queries("Nombre de la Tabla").Refresh 'Seleccionamos el rango de celdas a enviar Select Sheets("Nombre de la Hoja").ListObjects("Nombre de la Tabla").Range.Select ActiveWorkbook.EnvelopeVisible = True 'Llamamos al envío... With ActiveSheet.MailEnvelope .Item.To = "cuenta de e-mail" '.Item.cc = "cuenta1 de e-mail" '.Item.bcc = "cuenta2 de e-mail" .Item.Subject = "Encabezado del correo" .Introduction = "Cuerpo del correo" .Item.Send End With ActiveWorkbook.Close SaveChanges:=True End Sub

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel