كيف يمكن تصدير جدول نص البريد الإلكتروني إلى Excel من Outlook؟

عند استلام بريد إلكتروني يحتوي على جداول ضمن نصه، قد تجد نفسك بحاجة أحيانًا إلى تصدير جميع هذه الجداول دفعة واحدة إلى ورقة عمل Excel. بالرغم من إمكانية نسخ الجداول ولصقها يدويًّا في ورقة العمل، سأعرض لك هنا طريقة ذكية وفعّالة تناسب الحالات التي تتضمّن عدة جداول تحتاج إلى تصديرها معًا.

تصدير جميع الجداول من نص رسالة Outlook إلى ورقة عمل Excel باستخدام كود VBA

---

تصدير جميع الجداول من نص رسالة Outlook إلى ورقة عمل Excel باستخدام كود VBA

يرجى تطبيق كود VBA التالي لتصدير جميع الجداول من رسالة بريد إلكتروني واحدة إلى ورقة عمل Excel.

1. افتح الرسالة التي تريد تصدير الجداول منها، ثم اضغط مع الاستمرار على مفتاحَي «ALT» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».

2. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة «Module».

كود VBA: تصدير جميع الجداول من نص الرسالة إلى ورقة عمل Excel

Sub ImportTableToExcel()
Dim xMailItem As MailItem
Dim xTable As Word.Table
Dim xDoc As Word.Document
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim I As Integer
Dim xRow As Integer
On Error Resume Next
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
xExcel.Visible = True
Set xWs = xWb.Sheets(1)
xRow = 1
For Each xMailItem In Application.ActiveExplorer.Selection
    Set xDoc = xMailItem.GetInspector.WordEditor
    For I = 1 To xDoc.Tables.Count
        Set xTable = xDoc.Tables(I)
        xTable.Range.Copy
        xWs.Paste
        xRow = xRow + xTable.Rows.Count + 1
        xWs.Range("A" & CStr(xRow)).Select
    Next
Next
End Sub

3. بعد لصق الكود أعلاه، وفي نافذة «Microsoft Visual Basic for Applications» نفسها، انقر فوق «Tools» > «References» للانتقال إلى مربع حوار "References - Project1"، ثم فعّل الخيارين «Microsoft Word Object Library» و«Microsoft Excel Object Library» من قائمة «Available References»، كما هو موضح في لقطة الشاشة:

4. بعد ذلك، انقر فوق زر «موافق» للخروج من مربع الحوار، ثم اضغط على مفتاح "F5" لتشغيل الكود. سيتم تصدير جميع الجداول الموجودة في نص الرسالة إلى ورقة عمل جديدة، كما هو موضح في لقطة الشاشة التالية: