Si desea exportar rápidamente las tablas desde un correo electrónico de Outlook a un archivo de Excel, puede utilizar el método presentado en este artículo. Utilizará VBA para ayudarlo a lograr esto con solo un clic.
Como todos sabemos, Excel está diseñado para tablas y estadísticas de datos. Por lo tanto, cuando recibe un correo electrónico que contiene varias tablas en el cuerpo, es posible que desee exportar todas estas tablas a un archivo de Excel para analizar mejor los datos en las tablas. Por lo tanto, aquí le enseñaremos cómo exportar rápidamente todas las tablas de un correo electrónico a un nuevo libro de Excel. Ahora, siga leyendo para obtener el código VBA y los pasos detallados.
Exportar todas las tablas de un correo electrónico de Outlook a un libro de Excel
- Para empezar, inicie su aplicación Outlook como de costumbre.
- Luego, en la ventana principal de Outlook, presione los botones de tecla "Alt + F11".
- A continuación, en la siguiente ventana de "Microsoft Visual Basic para aplicaciones", debe abrir un módulo vacío.
- Posteriormente, debe copiar el código VBA a continuación en este módulo.
Sub ExportTablesinEmailtoExcel()
Dim objMail As Outlook.MailItem
Dim objWordDocument As Word.Document
Dim objTable As Word.Table
Dim lTableCount As Long
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim i As Long
'Create a new excel workbook
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Add
objExcelApp.Visible = True
'Get the table(s) in the selected email
Set objMail = Outlook.Application.ActiveExplorer.Selection.item(1)
Set objWordDocument = objMail.GetInspector.WordEditor
lTableCount = objWordDocument.Tables.Count
If lTableCount > 1 Then
'If there is more than one table
'Copy each table into separate worksheet
For i = 1 To lTableCount
Set objTable = objWordDocument.Tables(i)
objTable.Range.Copy
Set objExcelWorksheet = objExcelWorkbook.Sheets(i)
objExcelWorksheet.Paste
objExcelWorksheet.Columns.AutoFit
Next
Else
'If there is only one table
'Just copy it into the first worksheet
Set objTable = objWordDocument.Tables(1)
objTable.Range.Copy
Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
objExcelWorksheet.Paste
objExcelWorksheet.Columns.AutoFit
End If
End Sub
- Después de eso, debe agregar la nueva macro a la barra de herramientas de acceso rápido.
- Más tarde, debería modificar el nivel de seguridad macro de Outlook a bajo.
- En última instancia, podrías intentarlo.
- En primer lugar, seleccione un correo electrónico de origen en la lista de correo electrónico.
- Luego haga clic en el botón de macro en la barra de herramientas de acceso rápido.
- A la vez, se mostrará un nuevo archivo de Excel.
- Si solo hay una tabla en el correo electrónico, esta tabla se exportará a la primera hoja de trabajo del archivo de Excel, como la siguiente captura de pantalla:
- Pero si hay más de una tabla en el correo electrónico, cada tabla se copiará en una hoja de trabajo individual.
Deshágase de la miserable pérdida de datos de PST
Outlook es propenso a errores y corrupción. Por lo tanto, es una tarea tediosa y ardua proteger sus datos PST y evitar la dolorosa pérdida de datos PST. En primer lugar, debe realizar una copia de seguridad de sus archivos PST con regularidad. Además, tienes que preparar un potente Corrección de PST utilidad, como DataNumen Outlook Repair. Puede rescatarlo de todo tipo de problemas de PST con facilidad y sin esfuerzo.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo sql dañado y productos de software de reparación de Outlook. Para más información visite www.datanumen.com