اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

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

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

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

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

 

 

Untitled-2 copy.jpg

Untitled-1 copy.jpg

رابط هذا التعليق
شارك

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

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

 

  • Like 4
رابط هذا التعليق
شارك

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

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

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

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

 

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

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

 

رابط هذا التعليق
شارك

 

 

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

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

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

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information