محتاج توضيح عن كيفية احضار جميع البيانات من الاكسل الى الوورد

[firasalsam]

..السلام عليكم

عملت ملف بيانات للطلاب مكون من التسلسل واسم الطالب و الرقم التسلسلي وعدة اعمدة للدرجات الامتحانية لعدة اشهر جميعها مترابطة بعمليات حسابية وكذلك النتيجة النهائية  في ملف الاكسيل

كذلك عملت مخطط لنتيجة نهائية على ملف الوورد وحاولت احضار بيانات الطلاب حاولت ان اضع الاعمدة المهمة وطباعة كل بيانات لكل عمود .. عند اتمام العمل لم يظهر لي سوى سطر واحد وهو السطر الاول من 

البيانات في الوقت الذي اريده هو اظهار جميع الاسطر لكل طالب في كل  عمود كما هو موجود في ملف الاكسيل 

 

 

[firasalsam]

ما اريده هو الحصول على كافة البيانات كما في الصورة التالية 

[عبدالفتاح في بي اكسيل]

جرب  هذا  الماكرو لعله يفيدك 

Sub ActivateWordTransferData()
'تحديد  المدى  كما  في  ورقة  الاكسيل مع مراعاة  اسم  الورقة 
Worksheets("Sheet1").Range("c1:g200").Copy
Dim wdapp As Object, wddoc As Object

Dim strdocname As String

On Error Resume Next

Set wdapp = GetObject(, "Word.Application")
If Err.Number = 429 Then
Err.Clear
Set wdapp = CreateObject("Word.Application")
End If

wdapp.Visible = True
'مكان ملف الوورد في  الدرايف
strdocname = "C:\Users\alhagag\Desktop\ww.docx"

If Dir(strdocname) = "" Then
MsgBox "The file " & strdocname & vbCrLf & "was not found " & vbCrLf & "C:\ww\.", vbExclamation, "The document does not exist."
Exit Sub
End If
wdapp.Activate
Set wddoc = wdapp.Documents(strdocname)
If wddoc Is Nothing Then Set wddoc = wdapp.Documents.Open(strdocname)
wddoc.Activate
wddoc.Range.Paste
wddoc.Save
wdapp.Quit
Set wddoc = Nothing
Set wdapp = Nothing
Application.CutCopyMode = False
End Sub

 

[عبدالله بشير عبدالله]

لو ارفقت ملفا لكان اجدى

مرفق ملف به كود بسيط جدا 

الكود لا تغير به شئ سوى مدى ورقة الاكسل

تحياتي ... الملف المرفق من احدى المواقع الاجنبية

 

تحويل الى وورد.xls

[firasalsam]

بوررركت اخي الكريم .. شيئ مقارب  لمقترحك 

 

اسم المادة.docx Book1.xlsx

[عبدالله بشير عبدالله]

الجدول في ملف الوورد غير موجود بملف  الاكسل 

جهز الجدول في ملف الاكسل  وان شاء الله احوله الى وورد

تحياتي

[firasalsam]

عفوا اخي الكريم موجوودة جميع الفقرات والاجزاءبين الملفيين 

الوورد والاكسل 

[firasalsam]

كذلك قمت بتغيير تقسيم السجل 

اذا كان هذا قصدك 

eslamic (1).xlsx

[نزار سليمان عيد]

عن طريق دمج المراسلات انظر للصورة ادناه

 

[firasalsam]

اخي الكريم اعرف هذه الطريقة لكن لا يحظر جميع الاسطر ولا جميع الاعمدة 

[أ / محمد صالح]

إذا كان الحل هو دمج المراسلات والمشكلة هي عرض أكثر من صف في نفس الصفحة

فبإذن الله يفيدك هذا الموضوع

 

[firasalsam]

تم حل الاشكال من قبل الاخ الفاضل عصام ابراهيم خويلة 

صاحب هذه القناة 

ألف الف شكر وتحية لشخصه الكريم والف تحية وشكر لكل من قام بالرد 

[أ / محمد صالح]

 

 

في ١٢‏/٧‏/٢٠٢١ at 17:41, firasalsam said:

تم حل الاشكال من قبل الاخ الفاضل عصام ابراهيم خويلة 

صاحب هذه القناة 

ألف الف شكر وتحية لشخصه الكريم والف تحية وشكر لكل من قام بالرد 

يبدو أن حضرتك ما انتبهت لهذه المشاركة والموضوع المشار إليه فيها

ما قاله الأخي الكريم مشكورا هو تنفيذ التعليمات الواردة في الموضوع

في ١٠‏/٧‏/٢٠٢١ at 16:27, أ / محمد صالح said:

إذا كان الحل هو دمج المراسلات والمشكلة هي عرض أكثر من صف في نفس الصفحة

فبإذن الله يفيدك هذا الموضوع