أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

السلام عليكم اخواني الكرام اريد تصدير ورقه العمل المسماه invoice إلى برنامج الورد في مجلد اسمه quot;فواتيرquot; على الب ..



22-08-2017 10:21 مساء
خالد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 15
المشاركات : 126
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-10-1978
الدعوات : 5
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 210
الاعجاب : 7
 offline 

السلام عليكم اخواني الكرام 
اريد تصدير ورقه العمل المسماه invoice إلى برنامج الورد في مجلد اسمه "فواتير" على البارتيشن D
بشرط ان يكون اسم ملف الورد هو" فاتوره رقم " 
ويأخذ الرقم الموجود في الخانه d5 في صفحة invoice 
وشكرا لكم
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Book11.rar   تحميل rar مرات التحميل :(7)
الحجم :(8.453) KB







23-08-2017 08:42 صباحا
مشاهدة مشاركة منفردة [1]
خالد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 15
المشاركات : 126
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-10-1978
الدعوات : 5
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 210
الاعجاب : 7
 offline 
look/images/icons/i1.gif تصدير ورقه عمل لبرنامج الورد باسم رقم في خليه معينه
للرفع وشكرا لكم





23-08-2017 09:19 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif تصدير ورقه عمل لبرنامج الورد باسم رقم في خليه معينه
أخي الكريم خالد 
يرجى عدم رفع الموضوع إلا بعد مرور 24 ساعة على الأقل ..

قم بتجربة الكود التالي (ضع الكود في موديول عادي)
Sub Test()
    Dim wsh         As Worksheet
    Dim objWord     As Object
    Dim objDoc      As Object
    Dim blnStart    As Boolean

    On Error Resume Next
        Set objWord = GetObject(Class:="Word.Application")
        If objWord Is Nothing Then
            Set objWord = CreateObject(Class:="Word.Application")
            blnStart = True
        End If
    On Error GoTo ErrHandler

    Set wsh = Worksheets("invoice")
    wsh.UsedRange.Copy
    Set objDoc = objWord.Documents.Add
    objDoc.Content.PasteExcelTable False, False, False
    objDoc.SaveAs Filename:="D:\فواتير" & "\فاتورة رقم " & wsh.Range("D5").Value & ".docx", FileFormat:=12

ExitHandler:
    On Error Resume Next
    Application.CutCopyMode = False
    objDoc.Close SaveChanges:=False
    If blnStart Then
        objWord.Quit SaveChanges:=False
    End If
    Exit Sub

ErrHandler:
    MsgBox Err.Description, vbExclamation
    Resume ExitHandler
End Sub





23-08-2017 10:41 صباحا
مشاهدة مشاركة منفردة [3]
خالد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 15
المشاركات : 126
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-10-1978
الدعوات : 5
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 210
الاعجاب : 7
 offline 
look/images/icons/i1.gif تصدير ورقه عمل لبرنامج الورد باسم رقم في خليه معينه

جميل ما شاء الله لا قوة الا بالله...فتح الله عليك

ممكن ان يكون بدلا عن   wsh.UsedRange.Copy
ان يكون مدي معين مثل ("Range("a1:f31

ويكون ايضا  نوع النسخ CopyPicture
؟؟





23-08-2017 02:41 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif تصدير ورقه عمل لبرنامج الورد باسم رقم في خليه معينه
بالنسبة للنقطة الأولى نعم يمكن استبدال كلمة UsedRange ووضع النطاق المطلوب مكان هذه الكلمة كما وضحت في مشاركتك
بالنسبة للنقطة الثانية ماذا تقصد منها : هل تقصد أن يتم اللصق كصورة؟


لي رجاء : عدم اقتباس المشاركات ليظهر الموضوع بشكل أفضل ..





23-08-2017 02:47 مساء
مشاهدة مشاركة منفردة [5]
خالد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 15
المشاركات : 126
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-10-1978
الدعوات : 5
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 210
الاعجاب : 7
 offline 
look/images/icons/i1.gif تصدير ورقه عمل لبرنامج الورد باسم رقم في خليه معينه
بالنسه للنقطه الاولي...وكيف سيكون الكود ؟
هكذا wsh.Range("a1:f 31" ) .Copy


بالنسبه للنقطه الثانيه نعم اللصق كصورة  فذلك افضل.. وكيف يكون ذلك في الكود؟





24-08-2017 10:16 صباحا
مشاهدة مشاركة منفردة [6]
خالد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 15
المشاركات : 126
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-10-1978
الدعوات : 5
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 210
الاعجاب : 7
 offline 
look/images/icons/i1.gif تصدير ورقه عمل لبرنامج الورد باسم رقم في خليه معينه
تم الحل
وشكر لكم





24-08-2017 09:21 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif تصدير ورقه عمل لبرنامج الورد باسم رقم في خليه معينه
أخي الكريم خالد ..
هل معنى أنه تم الحل ألا ترفق لنا الحل لنستفيد منه ؟!!
يرجى وضع الحل الذي توصلت إليه حتى يستفيد من يطلع على الموضوع مستقبلاً ويكون الموضوع مرجع لهذه المسألة
تقبل تحياتي





24-08-2019 06:23 صباحا
مشاهدة مشاركة منفردة [8]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif تصدير ورقه عمل لبرنامج الورد باسم رقم في خليه معينه
بعد اذن الاستاذ ياسر قمت بتعديل بسيط ليتم اللصق كصورة فأرجو الا اكون قد أخطأت وجزاكم الله خيرا
 
 
  تصدير ورقه عمل لبرنامج الورد باسم رقم في خليه معينه.zip   تحميل zip مرات التحميل :(3)
الحجم :(22.302) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، محمود ابو الدهب،




24-08-2019 06:26 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif تصدير ورقه عمل لبرنامج الورد باسم رقم في خليه معينه
بارك الله فيك أخي الكريم وجزاك الله خيراً

أثارت هذه المشاركة إعجاب: hassona229، محمود ابو الدهب،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل وازاله البيانات التي تحتوي ع صفر من ورقه الي اخري mahmoud ayad
6 301 YasserKhalil
ترحيل صف ف ورقه الي ورقه اخري mahmoud ayad
6 434 YasserKhalil
طباعه جدول ثلاث مرات فى نفس الورقه بودى مورا
1 483 بودى مورا

الكلمات الدلالية
لا يوجد كلمات دلالية ..


 







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



الساعة الآن 08:24 مساء

أعلن هنا
أعلن هنا
أعلن هنا