إجمالي مرات مشاهدة الصفحة

السبت، 30 أبريل 2016

تصدير كل أوراق العمل إلى ملفات بي دي إف منفصلة Export Each Sheet To PDF

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

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

استكمالاً للموضوع أقدم لكم كود يقوم بتصدير أوراق العمل بالمصنف الحالي إلى ملفات PDF ، والفرق أن عملية التصدير ستكون لكل ورقة عمل ملف PDF خاص ورقة العمل ، أي يتم التصدير بشكل منفصل لكل ورقة عمل.

وإليكم الكود الذي يؤدي المهمة ، ويوضع الكود في موديول عادي

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

إعداد / ياسر خليل أبو البراء

هناك 4 تعليقات:

  1. روعة أخي ياسر .... حفظك الله ..ورزقك الصحة الدائمة

    ردحذف
  2. بارك الله فيك ولك بمثل ما دعوت لي وزيادة

    ردحذف
  3. السلام عليكم .. اخي ياسر ..
    عندما نريد أن يكون إسم المصنف بدلا من كلمة Exported كتبت ThisWorkbook.Name ..تظهر النتيجة إسم المصنف مثلا Test تكون النتيجة ملف PDF أسمه Test.Xlsm ... ماهو الحل لتظهر النتيجة فقط إسم المصنف

    ردحذف
  4. .انضم إلى eToro وقُد ثورة التكنولوجيا المالية

    eToro هي السوق الرائدة للجيل التالي من المتداولين والمستثمرين. بإمكانك تحقيق أرباح مباشرة من خلال التداول عبر الإنترنت وقيادة خمسة ملايين متداول اجتماعي حول العالم، والحصول على الأموال باعتبارك تمثل جيلاً جديداً من مدراء الصناديق عندما ينسخ الآخرون استثماراتك.

    ردحذف