كود يقوم بتصدير كافة أوراق العمل إلى صيغة .. PDF

[فايز فراج]

.. أرجوا من حضراتكم  .. 

.. عمل كود يقوم بتصدير جميع أوراق العمل في ملف  .. شيت كنترول  .. إلى صيغة  PDF 

 

شكراااا جزيلا 

[ياسر خليل أبو البراء]

السلام عليكم

اطلع على الرابط التالي وإن شاء الله يفيدك

http://yasserkhalilexcellover.blogspot.com/2016/04/export-each-sheet-to-pdf.html

[أبو إيمان]

بعد إذن الاستاذ ياسر 

زيادة في الفائدة

 

https://www.officena.net/ib/topic/62692-حفظ-الصفحات-pdf/#comment-419651

 

[فايز فراج]

23 ساعات مضت, ياسر خليل أبو البراء said:

السلام عليكم

اطلع على الرابط التالي وإن شاء الله يفيدك

http://yasserkhalilexcellover.blogspot.com/2016/04/export-each-sheet-to-pdf.html

السلام عليكم  .. أستاذنا الفاضل  .. ياسر خليل 

.. أرجوا من حضرتك 

.. نسخ الكود داخل ورقة إكسل إضافية  من عندك 

لأن المشكلة تنحصر في  :

كلما أدخل على رابط حضرتك يدخلنى على صفحات أخرى وخلافه 

[ياسر خليل أبو البراء]

وعليكم السلام

دعك من تحميل الملف

المهم الكود .. استخدم الكود الموجود في الموضوع .. الملف ما هو إلا مثال تطبيقي على الكود

Sub Create_PDF_Files_For_Each_Sheet()
    Dim Ws As Worksheet
    Dim Fname As String
    
    Application.ScreenUpdating = False
        For Each Ws In ActiveWorkbook.Worksheets
            On Error Resume Next
            Fname = ThisWorkbook.Path & "\Exported " & Ws.Name
            Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        Next Ws
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub

 

[زياد عبد الجليل]

بارك الله فيك استاذ ياسر ....اعمالك دائما متميزة.

لدي طلب بسيط ماذا لو وضعنا في مسار التحويل الى pdf ان يضع كل الملفات المحولة داخل مستند يأخذ نفس اسم مصنف اكسيل او في مستند يسمى مثلا file pdf

وبارك الله فيك وشكرا جزيلا لك

[ياسر خليل أبو البراء]

حمل الملف التالي فيه ما تطلب 

https://www.file-upload.com/7qfl4h0vguh9

[زياد عبد الجليل]

49 دقائق مضت, ياسر خليل أبو البراء said:

حمل الملف التالي فيه ما تطلب 

https://www.file-upload.com/7qfl4h0vguh9

استاذ ياسر اعتقد انك لم تفهم المطلوب بالضبط اريد وضع الاوراق المحولة داخل مستند (file-fichier) يأخذ نفس اسم المصنف مثلا اذا كان المصنف موجود على سطح المكتب و قمنا بالتحويل هنا ملف pdf سيكون ضاهرا على سطح المكتب كذلك ويتبع مسار المصنف ولكن اريد وضع pdf داخل مستند file

Sub Create_PDF_Files_For_Each_Sheet()
    Dim Ws As Worksheet
    Dim Fname As String
    
    Application.ScreenUpdating = False
        For Each Ws In ActiveWorkbook.Worksheets
            On Error Resume Next
            Fname = ThisWorkbook.Path & "\Exported " & Ws.Name
            Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        Next Ws
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub
مثلا 
foldernam:=.....,Filename:=Fname,Quality:=xlQualityStandard, IncludeDocProperties:=True,.......

 

تم تعديل أغسطس 9, 2017 بواسطه زياد عبد الجليل
خطأ في صياغة السؤال

[فايز فراج]

30 دقائق مضت, ياسر خليل أبو البراء said:

حمل الملف التالي فيه ما تطلب 

https://www.file-upload.com/7qfl4h0vguh9

السلام عليكم  .. أستاذنا الفاضل  .. ياسرخليل 

.. قمت حضرتك بالدخول على الرابط 

ثم قمت بتظليل علامة صح أمام  : أنا لست برنامج روبوت 

.. قمت بجميع المحاولات حتى أن توصلت لصفحة فارغة مكتوب فيها باللغة الإنجليزية 

 403 forbidden 

شكرا جزيلا 

فايز فراج 

مدرس بالأزهر الشريف 

[ياسر خليل أبو البراء]

وعليكم السلام

 

015-Export Specific Sheets To One PDF File YasserKhalil.rar

[زياد عبد الجليل]

2 دقائق مضت, ياسر خليل أبو البراء said:

وعليكم السلام

 

015-Export Specific Sheets To One PDF File YasserKhalil.rar

السلام عليكم استاذ ياسر لكن لم يتم وضع ملف pdf المحول داخل مستند

[ياسر خليل أبو البراء]

لم أفهم المطلوب .. 

[زياد عبد الجليل]

11 دقائق مضت, ياسر خليل أبو البراء said:

لم أفهم المطلوب .. 

 

Nouvelle image.bmp

Nouvelle image2.bmp

10 دقائق مضت, زياد عبد الجليل said:

 

Nouvelle image.bmp

Nouvelle image2.bmp

الصورة الاخيرة فيها شرح مبسط للمطلوب

image.bmp

[ياسر خليل أبو البراء]

إذا كنت تقصد عمل مجلد يتم التصدير إليه فقم بإنشاء مجلد في نفس مسار الملف باسم Exported وغير السطر التالي في الكود

sNewFilePath = ThisWorkbook.Path & "\Exported\Exported.pdf"

 

[فايز فراج]

في Sunday, August 06, 2017 at 20:02, ياسر خليل أبو البراء said:

وعليكم السلام

دعك من تحميل الملف

المهم الكود .. استخدم الكود الموجود في الموضوع .. الملف ما هو إلا مثال تطبيقي على الكود

Sub Create_PDF_Files_For_Each_Sheet()
    Dim Ws As Worksheet
    Dim Fname As String
    
    Application.ScreenUpdating = False
        For Each Ws In ActiveWorkbook.Worksheets
            On Error Resume Next
            Fname = ThisWorkbook.Path & "\Exported " & Ws.Name
            Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        Next Ws
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub

 

السلام عليكم 

مراعاة حضرتك

في الكود بهذه المشاركة 

حيث قمت بكتابته يدويا 

لكن المشكلة تنحصر في  : 

ظهور أغلب الكتابة داخل الكود باللون الأحمر 

 

أرجوا من حضرتك إلقاء النظرة العابرة على الكود داخل الملف المرفق 

 

شكرا جزيلا 

كود لحفظ الصفحات بي دي اف.rar

[ياسر خليل أبو البراء]

تفضل الكود .. الأفضل نسخ الكود من داخل الملف المرفق

Sub Create_PDF_Files_For_Each_Sheet()
    Dim Ws As Worksheet
    Dim Fname As String
    Application.ScreenUpdating = False
    For Each Ws In ActiveWorkbook.Worksheets
        On Error Resume Next
        Fname = ThisWorkbook.Path & "\Exported " & Ws.Name
        Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
    Next Ws
    Application.ScreenUpdating = True
    MsgBox "Done...", 64
End Sub

 

[زياد عبد الجليل]

منذ ساعه, ياسر خليل أبو البراء said:

إذا كنت تقصد عمل مجلد يتم التصدير إليه فقم بإنشاء مجلد في نفس مسار الملف باسم Exported وغير السطر التالي في الكود

sNewFilePath = ThisWorkbook.Path & "\Exported\Exported.pdf"

 

شكرا استاذ ياسر الكود يعمل بشكل جيد بارك الله فيك لكن ماذا لو اردت ان المجلد ياخذ تسمية الملف workbook هل يمكن ذلك

Private Sub CommandButton11_Click()
    Dim Ws As Worksheet
    Dim Fname As String
    Application.ScreenUpdating = False
    For Each Ws In ActiveWorkbook.Worksheets
        On Error Resume Next
        Fname = ThisWorkbook.Path & "\Exported\Exported.pdf" & Ws.Name
        Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
    Next Ws
    Application.ScreenUpdating = True
    MsgBox "Done...", 64
End Sub

 

تم تعديل أغسطس 9, 2017 بواسطه زياد عبد الجليل
الكود جيد

[ياسر خليل أبو البراء]

استبدل هذا الجزء 

"Exported.pdf\

بهذا الجزء

 

\" & ThisWorkbook.Name & ".pdf"

[زياد عبد الجليل]

7 دقائق مضت, ياسر خليل أبو البراء said:

استبدل هذا الجزء 

"Exported.pdf\

بهذا الجزء

 

\" & ThisWorkbook.Name & ".pdf"

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

طلب اخير استاذ ياسر فضلا و تكرما منك ان امكن :

- لقد اعجبني هذا الكود نظرا لاختصاره و فعاليته اريد الكود نفسه مختصرا يقوم بنفس العمل لكن لا يحول الى صيغة pdf لكن يحفظ نسخة من الملف بأكمله بصيغة (.xlsx) لكن الملف بأكمله و ليس كل ورقة على حدة ...بارك الله فيك و مليون تريليون شكرا على مرورك الطيب و ردودك المفيدة .

[ياسر خليل أبو البراء]

يفضل طرح موضوع جديد لكل طلب جديد تيسيراً للبحث فيما بعد

[أباالحسن]

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

السلام عليكم

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

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

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

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

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

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

تـصـدير جميع اوراق الملف فى ملف واحد PDF.rar