Si vous souhaitez exporter rapidement les tableaux d'un e-mail Outlook vers un fichier Excel, vous pouvez utiliser la méthode présentée dans cet article. Il utilisera VBA pour vous aider à y parvenir en un seul clic.
Comme nous le savons tous, Excel est conçu pour les tableaux et les statistiques de données. Ainsi, lorsque vous recevez un email qui contient plusieurs tableaux dans le corps, vous pouvez souhaiter exporter tous ces tableaux dans un fichier Excel afin de mieux analyser les données des tableaux. Par conséquent, nous allons vous apprendre ici comment exporter rapidement tous les tableaux d'un e-mail vers un nouveau classeur Excel. Veuillez maintenant lire la suite pour obtenir le code VBA et les étapes détaillées.
Exporter tous les tableaux d'un e-mail Outlook vers un classeur Excel
- Pour commencer, ouvrez votre application Outlook comme d'habitude.
- Ensuite, dans la fenêtre principale d'Outlook, appuyez sur les touches "Alt + F11".
- Ensuite, dans la fenêtre suivante "Microsoft Visual Basic pour Applications", vous devez ouvrir un module vide.
- Ensuite, vous devez copier le code VBA ci-dessous dans ce module.
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
- Après cela, vous devez ajouter la nouvelle macro à la barre d'outils Accès rapide.
- Plus tard, vous devrez modifier le niveau de sécurité de votre macro Outlook sur faible.
- En fin de compte, vous pourriez essayer.
- Tout d'abord, sélectionnez un e-mail source dans la liste des e-mails.
- Cliquez ensuite sur le bouton macro dans la barre d'outils d'accès rapide.
- Aussitôt, un nouveau fichier Excel s'affichera.
- S'il n'y a qu'un seul tableau dans l'e-mail, ce tableau sera exporté dans la première feuille de calcul du fichier Excel, comme la capture d'écran suivante :
- Mais s'il y a plus d'un tableau dans l'e-mail, chaque tableau sera copié dans une feuille de calcul individuelle.
Débarrassez-vous de la misérable perte de données PST
Outlook est sujet aux erreurs et à la corruption. Par conséquent, il est fastidieux et ardu de protéger vos données PST et d'éviter une perte de données PST douloureuse. Tout d'abord, vous devez sauvegarder régulièrement vos fichiers PST. De plus, vous devez préparer un puissant Correction PST utilitaire, comme DataNumen Outlook Repair. Il peut vous sauver de toutes sortes de problèmes PST avec une facilité sans effort.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris sql corrompu et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com