كيقية حفظ ورقة من ملف اكسيل على شكل ملف بي دي اف وتسميتها باسم خلية معينة من الورقة

[محمد ابراهيم 78]

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

تحية الى جميع الاعضاء

 

ارجو مساعدتي في كيقية حفظ ورقة من ملف اكسيل على شكل ملف بي دي اف وتسميتها باسم خلية معينة من الورقة

 

مع فائق التقدير ....

مثال.rar

[رجب جاويش]

تفضل أخى

Sub PDF_SAVE()
Dim PDF_Name As String
On Error Resume Next
F_path = ThisWorkbook.Path
F_Name = Range("J4").Value
PDF_Name = F_path & "\" & F_Name & ".pdf"
If Not Dir(PDF_Name, vbDirectory) <> vbNullString Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
PDF_Name, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
MsgBox "هذا الملف موجود مسبقا"
End If
End Sub

حفظ ملف بامتداد PDF.rar

[محمد ابراهيم 78]

الاخ العزيز

 

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

[محمد ابراهيم 78]

الاخ العزيز ...

هل بالامكان تحديد مكان الحفظ .

 

مع الشكر

[رجب جاويش]

أخى الفاضل :

أولا : لك منى دعوة طيبة بتغيير اسم الظهور الى اللغة العربية حتى يسهل التواصل بيننا ( طبقا لسياسة المنتدى )

ثانيا: تفضل ما تريد

 

حفظ ملف بامتداد PDF مع تحديد مكان الحفظ.rar

[محمد ابراهيم 78]

شكراً اخي العزيز ...

ولكني اريد تحديد ملف معين موجود مثلاً فولدر اسمة (الفواتر) على الدسك توب تخزن فية الفواتير .

 

شكراً جزيلاً

[رجب جاويش]

أخى الفاضل المحترم / محمد ابراهيم

أتقدم لك بخالص تحياتى وتقديرى على سرعة الاستجابة وتغيير اسم الظهور الى اللغة العربية

أخى الفاضل

قم بوضع ملف الاكسل داخل المجلد الذى تريدة على سطح المكتب

وسوف يقوم الكود بحفظ نسخة PDF  فى نفس المجلد

مع استخدام الملف والكود الموجود فى المشاركة الثانية

[عبد الرحمن شفيق]

استاذي القدير

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

ففعلا هو كود مهم

واحتاج لتوضيح السبب

لك مني تحياتي

[الشيباني1]

استاذنا القدير  تحية طيبه  الموضوع يهمني جدا وانا استخدم اكسيل 2003  هل من ايضاح للكيفيه التي يتم بها التحضير للحفظ بهذه الصيغه ضمن هذا الملف (D:pdf files ) مع التقدير

[الشيباني1]

اخواني الاعزاء   لا زلت منتظرا لأني     لن يخيب بأذن الله ظني   مع تقديري 

[نادي الخولي]

مشكووور اخي بارك الله فيكم