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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة مطلوب كود استخراج بيانات بالمصفوفات اكسيل اسئله واجابات


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





تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


22-08-2017 09:07 صباحا
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 

الإخوة الأفاضل
 

السلام عليكم

فى هذا الملف المكون من ثلاث أوراق
مطلوب تصدير جميع هذه الاوراق فى ملف PDF  واحد

حسب الشروط الاتية

1- اذا كانت الخلية D8 بها بيانات (غير فارغة)  يتم تصدير الورقة

كما هو الحال فى الورقة AAA1   و  AAA2 أما الورقة AAA3 فلا نريد تصديرها لانها فارغة

2- بعض الأوراق بها صفحتان فيجب تصدير الصفحتين (مثل الورقة AAA1)  ، وبعض الأوراق بها صفحة واحد مثل (الورقة AAA2)  فيجب تصدير الصفحة الواحد وترك الصفحات الباقية الفارغة

مع العلم اننى قمت بضبط نطاق الطباعة فى الملف الأصلى  (صفحة او اثنين حسب محتوى بيانات كل ورقة) اى يمكن الطباعة مباشرة على النطاق الموجود.

********************** وجزاكم الله خيرا ، ومبارك على الموقع الجديد **********************


هذا هو الملف المرفق

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 

 
 
  تـصـدير جميع اوراق الملف فى ملف واحد PDF.rar   تحميل rar مرات التحميل :(23)
الحجم :(60.888) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم أبا الحسن
أهلاً بك في المنتدى ونورت بين إخوانك

تفضل الكود التالي عله يفي بالغرض إن شاء الله
Sub Export_To_One_PDF()
    Dim ws          As Worksheet
    Dim fso         As Object
    Dim shArr       As Variant
    Dim rng         As Range
    Dim found       As Range
    Dim fStr        As String
    Dim fAdd        As String
    Dim s(1)        As String
    Dim sPath       As String
    Dim prShts      As String
    Dim iRow        As Long
    Dim i           As Long

    For Each ws In ThisWorkbook.Worksheets
        If Not IsEmpty(ws.Range("D8")) Then
            prShts = prShts & ws.Name & ","

            fStr = "الاســـــــــــــــــــم"
            Set rng = ws.Range("D:D")
            Set found = rng.Find(What:=fStr, After:=rng.Cells(rng.Cells.Count), LookIn:=xlValues, LookAt:=xlWhole)

            If Not found Is Nothing Then
                fAdd = found.Address
                Do
                    If found.Offset(1) = "" Then ws.PageSetup.PrintArea = "$C$1:$I$" & found.Row - 7: Exit Do
                    Set found = rng.FindNext(found)
                Loop Until found.Address = fAdd
            End If
        End If
    Next ws

    shArr = Split(Left(prShts, Len(prShts) - 1), ",")
    Sheets(shArr).Select

    Set fso = CreateObject("Scripting.FileSystemObject")
    s(0) = ThisWorkbook.FullName

    If fso.FileExists(s(0)) Then
        s(1) = fso.GetExtensionName(s(0))
        If s(1) <> "" Then
            s(1) = "." & s(1)

            sPath = ThisWorkbook.Path & "\Exported.pdf"
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End If
    Else
        MsgBox "Error: This Workbook May Be Unsaved. Please Save And Try Again"
    End If

    Sheets(1).Select
    Set fso = Nothing

    MsgBox "PDF File Has Been Created", 64
End Sub
عرض الإجابة




22-08-2017 10:25 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 534
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
وعليكم السلام أخي الكريم أبا الحسن
أهلاً بك في المنتدى ونورت بين إخوانك

تفضل الكود التالي عله يفي بالغرض إن شاء الله
Sub Export_To_One_PDF()
    Dim ws          As Worksheet
    Dim fso         As Object
    Dim shArr       As Variant
    Dim rng         As Range
    Dim found       As Range
    Dim fStr        As String
    Dim fAdd        As String
    Dim s(1)        As String
    Dim sPath       As String
    Dim prShts      As String
    Dim iRow        As Long
    Dim i           As Long

    For Each ws In ThisWorkbook.Worksheets
        If Not IsEmpty(ws.Range("D8")) Then
            prShts = prShts & ws.Name & ","

            fStr = "الاســـــــــــــــــــم"
            Set rng = ws.Range("D:D")
            Set found = rng.Find(What:=fStr, After:=rng.Cells(rng.Cells.Count), LookIn:=xlValues, LookAt:=xlWhole)

            If Not found Is Nothing Then
                fAdd = found.Address
                Do
                    If found.Offset(1) = "" Then ws.PageSetup.PrintArea = "$C$1:$I$" & found.Row - 7: Exit Do
                    Set found = rng.FindNext(found)
                Loop Until found.Address = fAdd
            End If
        End If
    Next ws

    shArr = Split(Left(prShts, Len(prShts) - 1), ",")
    Sheets(shArr).Select

    Set fso = CreateObject("Scripting.FileSystemObject")
    s(0) = ThisWorkbook.FullName

    If fso.FileExists(s(0)) Then
        s(1) = fso.GetExtensionName(s(0))
        If s(1) <> "" Then
            s(1) = "." & s(1)

            sPath = ThisWorkbook.Path & "\Exported.pdf"
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End If
    Else
        MsgBox "Error: This Workbook May Be Unsaved. Please Save And Try Again"
    End If

    Sheets(1).Select
    Set fso = Nothing

    MsgBox "PDF File Has Been Created", 64
End Sub

22-08-2017 10:55 صباحا
مشاهدة مشاركة منفردة [2]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
جزاكم الله خيرا
yes yes yes
تم التجريب بنجاح 

 

22-08-2017 11:01 صباحا
مشاهدة مشاركة منفردة [3]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
سؤال بسيط متعلق بالموضوع
لو اردت ان أحفظ هذا الملف 
فى نفس مسار الملف الأصلى / داخل مجلد اسمه  المعلمين / داخل مجلد فرعى اسمه  المستقطعات
أي : مسار الملف الأصلى / المعلمين / المستقطعات.
على ان يكون اسم الملف هو اسم أول معلم به والموجود فى الخلية D8
فماهو الكود أو أين سيكون التعديل فى الكود السابق
وشكرا

22-08-2017 11:34 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 534
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
بارك الله فيك أخي الكريم
الكود يتعامل مع أوراق العمل كلها فأي ورقة عمل تقصدها حين تضع "اسم المعلم الموجود في الخلية D8" فكل ورقة عمل سيتم تصديرها بها D8 وبها اسم .. ؟!
بالنسبة لسطر المسار الذي يمكنك التعديل فيه هو السطر التالي
sPath = ThisWorkbook.Path & "Exported.pdf"


إذا كان هناك مجلد آخر في نفس المسار باسم TestFolder مثلاً يصبح السطر بالشكل التالي
sPath = ThisWorkbook.Path & "TestFolderExported.pdf"


وإذا كان المجلد TestFolder يحتوي مجلد آخر تود الإشارة إليه وليكن اسمه SubFolder فإن السطر يصبح بهذا الشكل
sPath = ThisWorkbook.Path & "TestFolderSubFolderExported.pdf"


تم تحرير المشاركة بواسطة :YasserKhalil
بتاريخ:22-08-2017 11:35 صباحا


22-08-2017 03:09 مساء
مشاهدة مشاركة منفردة [5]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
فى الحقيقة الملف الاصلى يوجد به أكثر من 60 ورقة عمل 
لكن انا اريد تصدير حوالى 15 ورقة عمل منها
وتصدير الذى يحتوى منها على بيانات فقط 
وعلى سبيل المثال أوراق العمل المطلوب تصديرها 
هي (AAA1 - AAA2 -AAA3)
فهل يمكن كتابتها فى الكود بالاسم بدلا من تصدير جميع أوراق الملف

النقطة الأخري أن الخلية B8 إذا كانت بها بيانات فى الأوراق السابقة يتم التصدير ، وعدم وجود بيانات بها لايتم التصدير
والخلية  B8  ثابته فى جميع أوراق العمل المطلوبة

واعتذر للاطالة ، وشكرا لحضرتك

22-08-2017 03:23 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 534
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
أخي الكريم بالنسبة لتحديد أوراق عمل محددة لا يمكنني التخمين ..
هل أوراق العمل المطلوب تصديرها لديك متتالية ؟؟؟ أم أنها متفرقة؟؟؟
حاول ترفق ملف معبر عن الملف الأصلي وليس الملف الأصلي بالطبع .. يكفي 7 أوراق عمل ... ولكن السؤال الهم هل أوراق العمل المطلوب تصديرها متتالية أم لا..؟
أم أنك تريد كتابة أسماء أوراق العمل الـ 15 في الكود نفسه تجنباً لحدوث خطأ ... أم أنك تفضل أن تكون قائمة أسماء أوراق العمل في ورقة عمل محددة؟


الصفحة 1 من 2 < 1 2 > الأخيرة »


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


 










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

الساعة الآن 11:03 صباحا