ترحيل من اكسل الى ورد

[محمد عدنان]

السلام عليكم 

سؤال الى الاستاذة خبراء الاكسل

هل بالامكان استخدام الماكرو لترحيل من اكسل الى نموذج ورد عبر نموذج اكسل لترحيل بيانات  ؟

طريقة غير دمج المراسلات  ملاحظة يوجد اكثر من نموذج 

ارفق البرتامج مع نموذج واحد ؟

form.rar

[أبومروان]

Sub Merge()
    ActiveWorkbook.MailMerge.OpenDataSource Name:= _
        "C:\Users\User\Desktop\MyData.xlsx", _
        ReadOnly:=True, LinkToSource:=True, _
        AddToRecentFiles:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Data Source=C:\Users\User\Desktop\MyData.xlsx;Mode=Read;Extended Properties=""HDR=YES;IMEX=1"""
    Documents.Open FileName:="C:\Users\User\Desktop\MyDocument.docx"
    ActiveDocument.MailMerge.Destination = wdSendToNewDocument
    ActiveDocument.MailMerge.Execute
End Sub

يمكنك استخدام الأمر VBA MailMerge لدمج المراسلات من Excel إلى Word. على سبيل المثال، يمكنك استخدام الأمر التالي لدمج البيانات الموجودة في عمود A الصفوف 2 إلى 10 في عمود B من جدول ما في كتاب Excel إلى ورقة مستند Word:

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

 

[محمد عدنان]

السلام عليكم 

اخي @كريم نظيم  للاسف ما زبط معي 

اشكرك لاهتمامك 🙂

 

[أبومروان]

4 دقائق مضت, محمد عدنان said:

السلام عليكم 

اخي @كريم نظيم  للاسف ما زبط معي 

اشكرك لاهتمامك 🙂

 

وعليكم السلام ورحمه الله

استاذ @محمد عدنان ممكن ترفع الملفات للعمل عليها افضل 🌹.

وانتظر الاجابه من  الساده خبراء المنتدى 🌹.

[محمد عدنان]

السلام عليكم 

ارفع الملفات مرة اخرى 

T_2023.xls نموذج 1.docx

[محمد عدنان]

السلام عليكم 

للرفع 

حاولت افهم ما هو موجود  من الرابط التالي  و اطبق على ملفي . و لكني لم افهم شيئ لاني لست مختص برامج 

https://thedatalabs.org/automated-student-mark-sheet/

هل من حل ؟

السلام عليكم و رحمة الله و بركاته 

للرفع  و المساعدة لو في امكن رابط للشرح 

[فوزى فوزى]

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

ترحيل من الاكسيل الى ورد.rar

[محمد عدنان]

السلام  عليكم و رحمة الله و بركاته

الاخ الاستاذ @فوزى فوزى بارك الله فيك و اشكر اهتمامك 

اتمنى ان اجد شرح للعمل طريقة الترحيل 

ملفك المرفق رائع

سؤال  هل بالامكان التعيدل على الكود بحيث يفتح  ملف الورد بعد  الترحيل ؟

و اكرر شكرك لك و أعضاء المنتدى 

[فوزى فوزى]

والله نجحت فى تعديل على الكود ليتماشى مع ملفك ويكون شيت الورد مفتوح

الترحيل من الاكسيل الى الورد.rar

[محمد عدنان]

السلام عليكم 

جزاك الله كل خير اخ @فوزى فوزى و غفر الله لوالديك و ادخلهم الجنة 

هل بالامكان جعل الكود يعمل بتصدير الى ورد اسم معين او انا اختار ادخال معين ؟ و انا يقوم بفتح ملف الوررد الاخير 

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

[فوزى فوزى]

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

[محمد عدنان]

السلام عليكم 

الاخ @فوزى فوزى بارك  الله لك  و انا كذلك لست مختص بالبرمجة  و عمل اكواد vba  

جزاك الله كل خير 

نرجو  ان تجد شخص مختص بالموضوع 

بارك الله لك للجميع و جزاك الله كل خير 

[محمد يوسف ابو يوسف]

السلام علكيم

الجزئية دي مسؤولة عن الاسم

   
e3اما هنا  تكتب الاسم في 

.SaveAs2 Filename:=MyPath & "\" & myBook.Sheets(MySheet).Cells(MyRow, 5) & ".doc", FileFormat:=wdFormatDocument




        .SaveAs2 Filename:=MyPath & "\" & myBook.Sheets(MySheet).Cells(2, 1) & ".doc", FileFormat:=wdFormatDocument

  في الخليه2 A  يعني ممكن نكتب الاسم في عمود ِِ

      .Cells(2, 1)  .... ورقم 2 يعني خلية رقم 2....A  هنا رقم 1 يعني عمود