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





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

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



22-08-2017 09:07 صباحا
أباالحسن
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 96
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 82
الاعجاب : 32
 offline 

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

السلام عليكم

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

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

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

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

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

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

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


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

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

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





22-08-2017 10:25 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 155
قوة السمعة : 4944
الاعجاب : 1405
 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]
أباالحسن
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 96
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 82
الاعجاب : 32
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
جزاكم الله خيرا
yes yes yes
تم التجريب بنجاح 

 




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




22-08-2017 11:34 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 155
قوة السمعة : 4944
الاعجاب : 1405
 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]
أباالحسن
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 96
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 82
الاعجاب : 32
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
فى الحقيقة الملف الاصلى يوجد به أكثر من 60 ورقة عمل 
لكن انا اريد تصدير حوالى 15 ورقة عمل منها
وتصدير الذى يحتوى منها على بيانات فقط 
وعلى سبيل المثال أوراق العمل المطلوب تصديرها 
هي (AAA1 - AAA2 -AAA3)
فهل يمكن كتابتها فى الكود بالاسم بدلا من تصدير جميع أوراق الملف

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

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




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




22-08-2017 04:27 مساء
مشاهدة مشاركة منفردة [7]
أباالحسن
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 96
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 82
الاعجاب : 32
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
أفضل ان اكتب بنفسى أوراق العمل المطلوبة داخل الكود
كاننى قمت بعمل كود لانشاء مجلد وداخلة مجلد فرعى
بهذا الشكل 
مسار البرنامج الاصلى / مرتبات سبتمبر/ مستقطعات المدرسة
واريد حفظ ملف pdf فى هذا المسار


تم تحرير المشاركة بواسطة :أباالحسن
بتاريخ:22-08-2017 04:27 مساء





22-08-2017 05:39 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 155
قوة السمعة : 4944
الاعجاب : 1405
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
إذا كان الامر كذلك قم بتغيير السطر الذي بمثابة حلقة تكرارية لكل أوراق العمل إلى هذا الشكل (قم بإضافة أوراق العمل المطلوبة داخل المصفوفة كما ترغب)
For Each ws In ThisWorkbook.Worksheets(Array("Sheet1", "Sheet2", "Sheet3"))




22-08-2017 10:48 مساء
مشاهدة مشاركة منفردة [9]
أباالحسن
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 96
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 82
الاعجاب : 32
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
شكرا جدا لحضرتك
لكن اريد الغاء الجزء الخاص بتحديد نطاق الطابعة فى هذا الكود
ويكتفى بالخيار  IgnorePrintAreas:=False لانه سيقوم بالغرض
ولاننى أستخدمت الدالة Offset فى تحديد نطاق الطباعة لكل ورقة وهى تعمل بنجاح
وقد قام الكود بالغاء عملها
والمشكلة الأخري أن الكود يطبع الصفحات الفارغة عند التطبيق على الملف الأصلي




22-08-2017 11:31 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 155
قوة السمعة : 4944
الاعجاب : 1405
 offline 
look/images/icons/i1.gif تصدير جميع اوراق ملف أكسيل فى ملف PDF واحد
لإلغاء الجزء الخاص بتحديد نطاق الطباعة قم بمسح هذا الجزء بالكامل
            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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود لعمل HyperLink للربط بين جميع اوراق العمل داخل ملف - أكاديمية الصقر للتدريب الصقر
2 174 YasserKhalil

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


 







الساعة الآن 08:28 صباحا