محتاج تعديل على كود ترحيل pdf

[أبو قاسم]

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

C:\Users\new\Desktop\nam

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

Book1.rar

[عبدالسلام ابوالعوافي]

    
    Application.ScreenUpdating = False
    ActiveWindow.DisplayWorkbookTabs = True
    Sheets(Array("sheet2")).Select
    
    'محتاج تغيير مسار الحفظ الى سطح المكتب وليس الى نفس مكان تواجد الملف
    ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:\Users\new\Desktop\nam" _
    & "\  تاريخ   " & n & Sheet2.Range("a1") & ".PDF"
    
    Worksheets("sheet2").Select
    ActiveWindow.DisplayWorkbookTabs = False
    Application.ScreenUpdating = True

لم اجربه .. اتمنى ان يكون صحيح

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

بارك الله فيك أخي الكريم عبد السلام وجزاك الله خيراً

لجعل الكود مرن ويعمل لأي مستخدم بدون التعديل فيه ، لا يجب وضع المسار لسطح المكتب بهذا الشكل .. جرب الكود التالي

Sub Export_PDF_in_most()
    Dim Str As String
    Str = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
    
    Application.ScreenUpdating = False
        ActiveWindow.DisplayWorkbookTabs = True
            Sheets(Array("sheet2")).Select
            ActiveSheet.ExportAsFixedFormat xlTypePDF, Str & "\  تاريخ   " & Sheet2.Range("A1") & ".PDF"
            Worksheets("sheet2").Select
        ActiveWindow.DisplayWorkbookTabs = False
    Application.ScreenUpdating = True
End Sub

 

 

[مهند الزيدي]

وفقك الله لكل أخي " ياسر " .. واحسنت على الحلول الرائعة .. بارك الله فيك 

[أبو قاسم]

جزاكم الله خير  ماقصرتوا  كلاكما نجوم في سماء الابداع  لكم مني الف تحية 

[سمير نجار]

السلام عليكم

السادة الكرام

هذا الكود لا يعمل على   2007  أليس كذلك ؟؟؟

 

 

[أبو قاسم]

3 ساعات مضت, سمير نجار said:

السلام عليكم

السادة الكرام

هذا الكود لا يعمل على   2007  أليس كذلك ؟؟؟

 

 

يعمل بشكل ممتاز

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

8 ساعات مضت, سمير نجار said:

السلام عليكم

السادة الكرام

هذا الكود لا يعمل على   2007  أليس كذلك ؟؟؟

 

 

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

أخي الكريم سمير ..ما هي المشكلة التي تحدث معك بالضبط ..؟ قم بإرفاق صورة من المشكلة

تقبل تحياتي

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم الاخى الكريم ياسر

سلمت يداك بكل خير

ارجو ان يتسع صدرك فى اطلب 

هل يمكن طباعه جميع الشيتات فى نطاق محدد ( من شيت 1 الى شيت 8) على شرط وهو  احتواء الخليه A1 فى كل شيت على بيانات

اى يتم تحويل جميع الشيتات ( من شيت 1 الى شيت 8) التى تحتوى الخليه A1 على مدخل  الى PDF (ملف واحد)  

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

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

أخي العزيز أبو حنين

رغم أنني لا أحب التعامل مع الطلبات في المشاركات الفرعية إلا أنني سأضع رداً على سؤالك لأنك غائب من فترة ونسيت التوجيهات ...

قم بالإطلاع على الرابط التالي ، وركز على الكود الثاني فقد تم إضافته للموضوع للإجابة على سؤالك .. الكود الثاني ستغير رقم 5 في أول الكود إلى 8 .. وهذا بفرض أن المصنف يحتوي على أوراق عمل وتريد اختبار أول 8 ورقات واختبار الخلية A1

الرابط من هنا

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ العزيز ياسر 

لك كل الحق .. لابد من الالتزام بتوجيهات المنتدى ........

ومش هزيد الطيب بلة  اذا اخبرتك انى كنت اتصفح   YasserKhalil Excel Lover اليوم 

وتم الاستعانه بعض اعماله الممتازه 

الا انى لم الاحظ هذا الموضوع 

جزاك الله كل الخير والتقدير

 

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

وعليكم السلام أخي الحبيب أبو حنين

الحمد لله أن تم المطلوب على خير ، والحمد لله الذي بنعمته تتم الصالحات

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

تقبل وافر تقديري واحترامي

[۩◊۩ أبو حنين ۩◊۩]

اخى الحبيب  

تم تدارك الامر وفهم الخطاء

وهم ادراج عدد خمس شيتات اواكثر

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

Desktop.rar

تم تعديل مايو 6, 2016 بواسطه ۩◊۩ أبو حنين ۩◊۩

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

يبدو أنك استخدمت الكود الأول في الرابط ..

ركز وانسخ الكود الثاني في الموضوع وغير رقم 5 إلى 8 وجرب مرة أخرى

إذا قابلتك مشكلة فقم بإرفاق ملف الإكسيل .. وليس ملف PDF الذي تم تصديره

تقبل تحياتي

 

[۩◊۩ أبو حنين ۩◊۩]

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

موضوع ممتاز جدا وحل مثالى جدا 

 

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

الحمد لله الذي بنعمته تتم الصالحات ، والحمد لله أن تم المطلوب على خير

وحاول تتابع المدونة وإن شاء الله ستجد موضوعات متجددة بشكل دائم .. لتكون بإذن المولى عزوجل مرجع لكل باحث في هذا المجال

تقبل وافر تقديري واحترامي

[سمير نجار]

المعذرة على التأخير

يظهر الخطأ في السطر التالي

 

 ActiveSheet.ExportAsFixedFormat xlTypePDF, Str & "\  تاريخ   " & sheet2.Range("A1") & ".PDF"

 

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

جرب استخدام اسم ورقة العمل بدلاً من الاسم البرمجي Sheet2

أي استخدم كلمة Sheets يليها قوس مفتوح Shift + 9 ثم قوس تنصيص واكتب اسم ورقة العمل ثم قوس تنصيص ثم قوس إغلاق Shift + 0 بدلاً من الاسم البرمجي

لو استمرت المشكلة يرجى إرفاق صورة من الخطأ ، مع ذكر نسخة الأوفيس لديك ..فقد تكون المشكلة في نسخة الأوفيس في تصدير ملفات الـ PDF

[سمير نجار]

ما زالت المشكلة قائمة

لدي نسخة اوفيس 2007 عربي وأظنها ليس فيها تصدير pdf  وانا كنت أعلم ذلك من قبل لكنني ظننت أنه بالبرمجة يمكن التصدير 

وهذه قائمة بأنواع ملفات التصدير في نسخة الاوفيس

 

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

أخي الكريم سمير

جرب تنصيب الأداة في المرفق التالي ..لعلها تحل مشكلتك

 

SaveAsPDFandXPS.rar

[سمير نجار]

كل الشكر والتقدير استاذي الكريم ابوالبراء

الاداة جداً رائعة

والكود عمل بشكل ممتاز

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

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

الحمد لله الذي بنعمته تتم الصالحات ..هذا من فضل ربي ، ولئن شكرتم لأزيدنكم

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

تقبل وافر تقديري واحترامي

[سمير نجار]

السلام عليكم

استاذي الكريم ابوالبراء

انا في حيرة !! .. هل اطرح المشكلة هنا أم أطرحها في موضوع جديد؟ على كل حال هذه المشكلة.

هناك مشكلة في التصدير للاكسل عن طريق هذه الاداة

والمشكلة هي ظهور الارقام بالانكليزي 123  بعد التصدير مع انها في الورقة بالعربي

حاولت أن اغير في اعداداها فلم تحل المشكلة ......... هل من حل؟

ملاحظة : في برامج الطابعة الافتراضية لتحويل الى pdf يتم التحويل مع الحفاظ على تنسيق الارقام

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

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

أخي العزيز سمير النجار

لقد مررت بهذه المشكلة من قبل ، وبعد ما بحثت كثيراً ولم أجد الحل ، اتضح لي أن المشكلة سببها نسخة أوفيس 2007 ..

جرب نسخة أحدث وسيعمل معك بكفاءة وبدون مشاكل على الإطلاق ، لذا أنصح بنسخة أحدث 2013 أو 2016 ...

[سمير نجار]

جزاك الله كل خير

إن شاء الله سأفعل

وطبعاً نسخة 2013 ، 2016 ليست بحاجة لهذه الأداة ، لأن تنسيق pdf يكون اساسياً .