logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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





13-05-2024 08:15 مساءً
إخواتي الكرام الاعزاء
برجاء التكرم والتفضل بتحويل هذا الملف الوورد الذي يحتوي على جدول انشطة الى ملف اكسل بحيث ياخذ كل صف وورد صف اكسل واحد فقط ، حيث أني حاولت اكثر من مرة ولكني كنت اواجه مشكلة كبيرة وهي انه بعد التحويل أجد الصف الموجود في جدول الوورد يتحول كل صف في جدول الوورد الى الاكسل الى اكثر من صف واضطر للدمج وهذا يضر البحث والفلترة فهل يمكن التكرم بتحويله الى اكسل شيت بحيث ينقل صف الوورد على صف اكسل واحد ولا يأخذ اكثر من صف.... وشكرا
مرفق الجدول المراد تحويله الى اكسل
الملف الوورد مرفق مضغوط
الموقع عندكم لا يقبل امتداد DOCX لذلك انا حولته ببرنامج وينرار لذلك يرجى تغيير الامتداد الى RAR
 
 
  1-1-2024.ZIP   تحميل zip مرات التحميل :(1)
الحجم :(99.062) KB





look/images/icons/i1.gif رجاء تحويل جدول وورد الى اكسل
  23-05-2024 09:19 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-05-2024
رقم العضوية : 24525
المشاركات : 12
الجنس :
قوة السمعة : 130
الاعجاب : 10
**كود VBA لتحويل جدول وورد إلى إكسيل**

```vba
CODE


Sub WordTableToExcel()
    ' تحديد جدول وورد
    Dim tbl As Table
    Set tbl = ActiveDocument.Tables(1)

    ' إنشاء مصنف إكسيل جديد
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Add

    ' نسخ الجدول إلى إكسيل
    tbl.Range.Copy
    xlApp.ActiveSheet.PasteSpecial xlPasteAll

    ' حفظ مصنف إكسيل
    xlApp.ActiveWorkbook.SaveAs "C:\Path\To\ExcelFile.xlsx"

    ' إغلاق مصنف إكسيل
    xlApp.Quit
End Sub
```



**خطوات استخدام الكود:**

1. افتح مستند وورد يحتوي على الجدول الذي تريد تحويله.
2. انقر فوق علامة التبويب "المطور" في شريط القائمة.
3. انقر فوق الزر "Visual Basic".
4. انسخ والصق الكود أعلاه في نافذة التعليمات البرمجية.
5. انقر فوق الزر "تشغيل" (F5) لتشغيل الكود.

**ملاحظات:**

* سيحفظ الكود مصنف إكسيل في المسار "C:\Path\To\ExcelFile.xlsx". يمكنك تغيير هذا المسار حسب الحاجة.


تم تحرير المشاركة بواسطة :Yasser Elaraby بتاريخ:26-05-2024 09:46 صباحاً


أثارت هذه المشاركة إعجاب: Yasser Elaraby،



look/images/icons/i1.gif رجاء تحويل جدول وورد الى اكسل
  24-05-2024 08:25 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 17-01-2018
رقم العضوية : 3730
المشاركات : 291
الجنس :
تاريخ الميلاد : 13-9-1973
الدعوات : 2
قوة السمعة : 2222
الاعجاب : 5
ربنا يكرم حضرتك يارب كود اكثر من رائع
طب معلش هل في كود يحول الجدول في شيت اكسل الى ملف وورد؟




look/images/icons/i1.gif رجاء تحويل جدول وورد الى اكسل
  24-05-2024 08:28 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-05-2024
رقم العضوية : 24525
المشاركات : 12
الجنس :
قوة السمعة : 130
الاعجاب : 10
**نعم، يوجد كود VBA يحول جدول في شيت إكسل إلى ملف وورد.**

إليك الخطوات:

1. افتح مصنف إكسل الذي يحتوي على الجدول الذي تريد تحويله.
2. انقر فوق علامة التبويب "مطور" في شريط القائمة.
3. انقر فوق "Visual Basic" لفتح محرر VBA.
4. انقر بزر الماوس الأيمن على اسم المصنف في الجزء الأيسر من محرر VBA وحدد "إدراج" > "وحدة نمطية".
5. الصق الكود التالي في وحدة النمط:
CODE



Sub TableToWord()

    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook
    Dim xlWs As Excel.Worksheet
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim rngTable As Excel.Range
    Dim strTable As String
    Dim i As Long

    'Get the Excel application and workbook
    Set xlApp = Excel.Application
    Set xlWb = xlApp.ActiveWorkbook
    Set xlWs = xlWb.ActiveSheet

    'Get the range of the table
    Set rngTable = xlWs.ListObjects(1).Range

    'Convert the table to a string
    strTable = rngTable.TextToColumns(Destination:=rngTable, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(1, 1))

    'Create a new Word application and document
    Set wdApp = Word.Application
    Set wdDoc = wdApp.Documents.Add

    'Insert the table into the Word document
    With wdDoc
        .Content.InsertAfter strTable
        .Tables(1).AutoFitBehavior = wdAutoFitContent
        .Tables(1).Style = "Table Grid"
    End With

    'Display the Word document
    wdApp.Visible = True

End Sub




6. انقر فوق "تشغيل" لتشغيل الكود.

سيؤدي هذا الكود إلى تحويل الجدول المحدد في شيت إكسل إلى جدول في ملف وورد جديد.


تم تحرير المشاركة بواسطة :Yasser Elaraby بتاريخ:26-05-2024 09:46 صباحاً


أثارت هذه المشاركة إعجاب: Yasser Elaraby،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تحويل جدول من اكسل الى وورد mohammedmbc2
1 809 mohammedmbc2
كود تحويل عمود الى جدول حبيب
6 1480 YasserKhalil
الحصول على جدول تحويل العملات باستخدام Power BI Desktop YasserKhalil
11 2172 YasserKhalil
هل ممكن تحويل العمودين المستخرجين من ملف ما الى جدول بهذا الشكل عبد الله السعيد
6 1700 ali mohamed ali
تحويل البيانات من عامودين الى جدول مطاطي salim
4 1695 fady_dd

الكلمات الدلالية
رجاء ، تحويل ، جدول ، وورد ، اكسل ،









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

الساعة الآن 09:06 AM