التعديل على الكود المرفق بالملف

[فايز فراج]

السلام عليكم  .. 

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

.. مراعاة النظر في الكود المرفق بالملف ( صيغة PDF )

.. الكود رائع جدا وبسيط 

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

.. عندما تكون الخلية  ( b2 ) فارغة من اسم الملف  يرسل رسالة  run time error  

.. عندما تكون الخلية (b2 ) غير فارغة يتم حفظ ورقة العمل بصيغة PDF

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

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

كود حفظ بصيغة PDF.rar

[أبو إيمان]

أخي الكريم :

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

وإليك تعديل الكود لكن عند الضغط لتشغيل الكود سوف يظهر اسم الملف ثابت " محمد " ولابد لك عند اعادة استخدام الكود أن تدخل لنافذة البرمجة وتعدل الاسم

Sub Picture2_Click()
'

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "محمد", Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    
           
End Sub

أما أن يكون الاسم في خلية من وجهة نظري يجعل هناك مرونة في العمل وخاصة إذا كنت تريد تحفظ مثلا فواتير بأسماء عملاء أو شهادات واستخدام حلقة تكرارية

تم تعديل أغسطس 8, 2017 بواسطه أبو إيمان

[فايز فراج]

9 ساعات مضت, أبو إيمان said:

أخي الكريم :

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

وإليك تعديل الكود لكن عند الضغط لتشغيل الكود سوف يظهر اسم الملف ثابت " محمد " ولابد لك عند اعادة استخدام الكود أن تدخل لنافذة البرمجة وتعدل الاسم

Sub Picture2_Click()
'

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "محمد", Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    
           
End Sub

أما أن يكون الاسم في خلية من وجهة نظري يجعل هناك مرونة في العمل وخاصة إذا كنت تريد تحفظ مثلا فواتير بأسماء عملاء أو شهادات واستخدام حلقة تكرارية

السلام عليكم  .. أستاذنا الفاضل  .. أبو إيمان 

كل عام وحضرتك بخير دائما 

.. فكرة تعديل الكود جميلة ورائعة 

حيث قمت بالدخول على الكود  .. قمت بتعديل الإسم من  : محمد إلى إسمي الحقيقي  : فايز فراج 

.. تم تجربة الكود بنجاح وعلى درجة عالية من الكفاءة 

 

فايز فراج 

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

شكرا جزيلا لحضرتك