مطلوب كود لحفظ ملف الاكسيل pdf مع اماكينة اختيار مكان الحفظ

[سيد الأكـرت]

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

[Saleh Ahmed Rabie]

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

هذا الكود يقوم بحفظ الصفحة الحالية في Excel بصيغة PDF تحت نفس اسم الصفحة:

Sub SaveAsPDF()
    Dim ws As Worksheet
    Dim savePath As String
    Dim saveName As String

    ' احفظ اسم الصفحة الحالية
    Set ws = ActiveSheet
    saveName = ws.Name
    
    ' اطلب من المستخدم تحديد مكان الحفظ
    savePath = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf")
    
    ' حفظ الصفحة بصيغة PDF
    If savePath <> "False" Then
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End If
End Sub

 

يمكنك نسخ الكود أعلاه ولصقه في وحدة التعليمات البرمجية في Excel (Alt + F11)، ثم تشغيل الكود من خلال الضغط على F5. سيظهر للمستخدم نافذة لاختيار مكان الحفظ وسيتم حفظ الصفحة الحالية بصيغة PDF تحت نفس اسم الصفحة.

[سيد الأكـرت]

شكرا لحضرتك يا افندم تم وضع الكود لكنه لم يعمل مرفق صورة والملف مع العلم ان الاوفيس المستخدم 2007 

فاتورة.xls

[Saleh Ahmed Rabie]

إليك كود VBA بسيط يمكنك استخدامه لحفظ الصفحة الحالية كملف PDF في Excel 2007:

Sub SaveAsPDF()
    Dim savePath As String
    
    ' اطلب من المستخدم تحديد مكان الحفظ
    savePath = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf")
    
    ' حفظ الصفحة كملف PDF
    If savePath <> "False" Then
        ActiveSheet.ExportAsFixedFormat Type:=0, Filename:=savePath, Quality:=1, IncludeDocProperties:=True, IgnorePrintAreas:=False
    End If
End Sub

 

يمكنك نسخ الكود أعلاه ولصقه في وحدة VBA في Excel 2007، ثم تشغيله لحفظ الصفحة الحالية كملف PDF. يرجى ملاحظة أن جودة الصورة المصدرة قد تكون أقل من ExportAsFixedFormat المتاحة في إصدارات أحدث من Excel.

[سيد الأكـرت]

شكرا جزيلا لحضرتك وكل عام وانتم بخير