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

Author: Xiaoyang Last Modified: 2025-05-30

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

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

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

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

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

2. انقر فوق "إدراج" > "وحدة"، والصق الكود التالي في نافذة "الوحدة".

كود 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

doc export tables to excel 1

3. بعد لصق الكود أعلاه، لا تزال في نافذة "Microsoft Visual Basic for Applications"، انقر فوق "أدوات" > "المراجع" للانتقال إلى مربع الحوار "المراجع-Project1"، وحدد خياري "مكتبة كائنات Microsoft Word" و"مكتبة كائنات Microsoft Excel" من قائمة المراجع المتاحة، انظر لقطة الشاشة:

doc export tables to excel 2

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

doc export tables to excel 3

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

ردود ذكية: احصل على ردود مصممة من محادثاتك السابقة - مخصصة، دقيقة وجاهزة للإرسال.
تحسين المحتوى: قم بتحسين نصوص البريد الإلكتروني تلقائيًا لتحقيق الوضوح والتأثير.
الكتابة السهلة: فقط قدم الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع أساليب كتابة متعددة.
التوسعات الذكية: قم بتوسيع أفكارك باقتراحات تعتمد على السياق.
الملخصات: احصل على ملخصات مختصرة للرسائل الطويلة فورًا.
التواصل العالمي: قم بترجمة رسائل البريد الإلكتروني إلى أي لغة بسهولة.

هذه الميزة تدعم: