¿Cómo guardar una hoja de trabajo como archivo PDF y enviarla por correo electrónico como archivo adjunto a través de Outlook?
En algunos casos, es posible que deba enviar una hoja de trabajo como archivo PDF a través de Outlook. Por lo general, debe guardar manualmente la hoja de trabajo como un archivo PDF, luego crear un nuevo correo electrónico con este archivo PDF como archivo adjunto en su Outlook y finalmente enviarlo. Lleva mucho tiempo lograrlo manualmente paso a paso. En este artículo, le mostraremos cómo guardar rápidamente una hoja de trabajo como un archivo PDF y enviarla automáticamente como un archivo adjunto a través de Outlook en Excel.
Guarde una hoja de trabajo como archivo PDF y envíela por correo electrónico como archivo adjunto con código VBA
Puede ejecutar el siguiente código VBA para guardar automáticamente la hoja de trabajo activa como un archivo PDF y luego enviarla por correo electrónico como un archivo adjunto a través de Outlook. Haz lo siguiente.
1. Abra la hoja de trabajo que guardará como PDF y envíela, luego presione otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código VBA en el Código ventana. Ver captura de pantalla:
Código VBA: guarde una hoja de trabajo como archivo PDF y envíela por correo electrónico como archivo adjunto
Sub Saveaspdfandsend()
Dim xSht As Worksheet
Dim xFileDlg As FileDialog
Dim xFolder As String
Dim xYesorNo As Integer
Dim xOutlookObj As Object
Dim xEmailObj As Object
Dim xUsedRng As Range
Set xSht = ActiveSheet
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDlg.Show = True Then
xFolder = xFileDlg.SelectedItems(1)
Else
MsgBox "You must specify a folder to save the PDF into." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder"
Exit Sub
End If
xFolder = xFolder + "\" + xSht.Name + ".pdf"
'Check if file already exist
If Len(Dir(xFolder)) > 0 Then
xYesorNo = MsgBox(xFolder & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", _
vbYesNo + vbQuestion, "File Exists")
On Error Resume Next
If xYesorNo = vbYes Then
Kill xFolder
Else
MsgBox "if you don't overwrite the existing PDF, I can't continue." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro"
Exit Sub
End If
If Err.Number <> 0 Then
MsgBox "Unable to delete existing file. Please make sure the file is not open or write protected." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File"
Exit Sub
End If
End If
Set xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Then
'Save as PDF file
xSht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder, Quality:=xlQualityStandard
'Create Outlook email
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmailObj = xOutlookObj.CreateItem(0)
With xEmailObj
.Display
.To = ""
.CC = ""
.Subject = xSht.Name + ".pdf"
.Attachments.Add xFolder
If DisplayEmail = False Then
'.Send
End If
End With
Else
MsgBox "The active worksheet cannot be blank"
Exit Sub
End If
End Sub
3. presione el F5 clave para ejecutar el código. En el Búsqueda de cuadro de diálogo, seleccione una carpeta para guardar este archivo PDF y luego haga clic en el OK
Notas:
Guarde fácilmente una hoja de trabajo o varias hojas de trabajo como archivos PDF separados a la vez:
Programas de Libro de trabajo dividido utilidad de Kutools for Excel puede ayudarlo a guardar fácilmente una hoja de trabajo o varias hojas de trabajo como archivos PDF separados a la vez, como se muestra en la siguiente demostración. ¡Descárgalo y pruébalo ahora! (30sendero libre de un día)
Artículos relacionados:
- ¿Cómo guardar un nombre de archivo de Excel con marca de tiempo?
- ¿Cómo usar la función Guardar como para sobrescribir automáticamente un archivo existente en Excel?
- ¿Cómo guardar, exportar varias / todas las hojas a archivos csv o de texto separados en Excel?
- ¿Cómo deshabilitar o no permitir las opciones Guardar y Guardar como en Excel?
- ¿Cómo deshabilitar el guardado del libro de trabajo pero solo permitir guardar como en Excel?
Las mejores herramientas de productividad de oficina
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!



















































