أبو قاسم قام بنشر مايو 4, 2016 مشاركة قام بنشر مايو 4, 2016 الكود يحفظ في نفس مكان الملف الاصل محتاج تغيير حيث يحفظ نفس مكان الرابط الذي اوضعة وهو C:\Users\new\Desktop\nam ولكم جزيل الشكر Book1.rar رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر مايو 4, 2016 مشاركة قام بنشر مايو 4, 2016 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 لم اجربه .. اتمنى ان يكون صحيح 3 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 4, 2016 مشاركة قام بنشر مايو 4, 2016 بارك الله فيك أخي الكريم عبد السلام وجزاك الله خيراً لجعل الكود مرن ويعمل لأي مستخدم بدون التعديل فيه ، لا يجب وضع المسار لسطح المكتب بهذا الشكل .. جرب الكود التالي 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 4 رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر مايو 4, 2016 مشاركة قام بنشر مايو 4, 2016 وفقك الله لكل أخي " ياسر " .. واحسنت على الحلول الرائعة .. بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر مايو 4, 2016 الكاتب مشاركة قام بنشر مايو 4, 2016 جزاكم الله خير ماقصرتوا كلاكما نجوم في سماء الابداع لكم مني الف تحية 1 رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر مايو 5, 2016 مشاركة قام بنشر مايو 5, 2016 السلام عليكم السادة الكرام هذا الكود لا يعمل على 2007 أليس كذلك ؟؟؟ رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر مايو 5, 2016 الكاتب مشاركة قام بنشر مايو 5, 2016 3 ساعات مضت, سمير نجار said: السلام عليكم السادة الكرام هذا الكود لا يعمل على 2007 أليس كذلك ؟؟؟ يعمل بشكل ممتاز رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 5, 2016 مشاركة قام بنشر مايو 5, 2016 8 ساعات مضت, سمير نجار said: السلام عليكم السادة الكرام هذا الكود لا يعمل على 2007 أليس كذلك ؟؟؟ وعليكم السلام أخي الكريم سمير ..ما هي المشكلة التي تحدث معك بالضبط ..؟ قم بإرفاق صورة من المشكلة تقبل تحياتي رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 6, 2016 مشاركة قام بنشر مايو 6, 2016 السلام عليكم الاخى الكريم ياسر سلمت يداك بكل خير ارجو ان يتسع صدرك فى اطلب هل يمكن طباعه جميع الشيتات فى نطاق محدد ( من شيت 1 الى شيت 8) على شرط وهو احتواء الخليه A1 فى كل شيت على بيانات اى يتم تحويل جميع الشيتات ( من شيت 1 الى شيت 8) التى تحتوى الخليه A1 على مدخل الى PDF (ملف واحد) رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 6, 2016 مشاركة قام بنشر مايو 6, 2016 وعليكم السلام ورحمة الله وبركاته أخي العزيز أبو حنين رغم أنني لا أحب التعامل مع الطلبات في المشاركات الفرعية إلا أنني سأضع رداً على سؤالك لأنك غائب من فترة ونسيت التوجيهات ... قم بالإطلاع على الرابط التالي ، وركز على الكود الثاني فقد تم إضافته للموضوع للإجابة على سؤالك .. الكود الثاني ستغير رقم 5 في أول الكود إلى 8 .. وهذا بفرض أن المصنف يحتوي على أوراق عمل وتريد اختبار أول 8 ورقات واختبار الخلية A1 الرابط من هنا 1 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 6, 2016 مشاركة قام بنشر مايو 6, 2016 السلام عليكم الاخ العزيز ياسر لك كل الحق .. لابد من الالتزام بتوجيهات المنتدى ........ ومش هزيد الطيب بلة اذا اخبرتك انى كنت اتصفح YasserKhalil Excel Lover اليوم وتم الاستعانه بعض اعماله الممتازه الا انى لم الاحظ هذا الموضوع جزاك الله كل الخير والتقدير رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 6, 2016 مشاركة قام بنشر مايو 6, 2016 وعليكم السلام أخي الحبيب أبو حنين الحمد لله أن تم المطلوب على خير ، والحمد لله الذي بنعمته تتم الصالحات الموضوع الذي تصفحته موجود بالفعل ، ولكن طلبك مختلف قليلاً فقمت بالتعديل على الكود الموجود بما يتناسب مع طلبك ، وأحببت ان أضيف إلى الموضوع ليكون مرجعاً لمن أرد البحث بهذا الخصوص تقبل وافر تقديري واحترامي رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 6, 2016 مشاركة قام بنشر مايو 6, 2016 (معدل) اخى الحبيب تم تدارك الامر وفهم الخطاء وهم ادراج عدد خمس شيتات اواكثر جزاك الله خيرا ... وسلمت يداك بكل خير. وحعلة الله فى ميزان حسناتك Desktop.rar تم تعديل مايو 6, 2016 بواسطه ۩◊۩ أبو حنين ۩◊۩ رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 6, 2016 مشاركة قام بنشر مايو 6, 2016 يبدو أنك استخدمت الكود الأول في الرابط .. ركز وانسخ الكود الثاني في الموضوع وغير رقم 5 إلى 8 وجرب مرة أخرى إذا قابلتك مشكلة فقم بإرفاق ملف الإكسيل .. وليس ملف PDF الذي تم تصديره تقبل تحياتي رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مايو 6, 2016 مشاركة قام بنشر مايو 6, 2016 لك من كل التقدير والعرفان موضوع ممتاز جدا وحل مثالى جدا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 6, 2016 مشاركة قام بنشر مايو 6, 2016 الحمد لله الذي بنعمته تتم الصالحات ، والحمد لله أن تم المطلوب على خير وحاول تتابع المدونة وإن شاء الله ستجد موضوعات متجددة بشكل دائم .. لتكون بإذن المولى عزوجل مرجع لكل باحث في هذا المجال تقبل وافر تقديري واحترامي 1 رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر مايو 7, 2016 مشاركة قام بنشر مايو 7, 2016 المعذرة على التأخير يظهر الخطأ في السطر التالي ActiveSheet.ExportAsFixedFormat xlTypePDF, Str & "\ تاريخ " & sheet2.Range("A1") & ".PDF" رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 7, 2016 مشاركة قام بنشر مايو 7, 2016 جرب استخدام اسم ورقة العمل بدلاً من الاسم البرمجي Sheet2 أي استخدم كلمة Sheets يليها قوس مفتوح Shift + 9 ثم قوس تنصيص واكتب اسم ورقة العمل ثم قوس تنصيص ثم قوس إغلاق Shift + 0 بدلاً من الاسم البرمجي لو استمرت المشكلة يرجى إرفاق صورة من الخطأ ، مع ذكر نسخة الأوفيس لديك ..فقد تكون المشكلة في نسخة الأوفيس في تصدير ملفات الـ PDF رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر مايو 8, 2016 مشاركة قام بنشر مايو 8, 2016 ما زالت المشكلة قائمة لدي نسخة اوفيس 2007 عربي وأظنها ليس فيها تصدير pdf وانا كنت أعلم ذلك من قبل لكنني ظننت أنه بالبرمجة يمكن التصدير وهذه قائمة بأنواع ملفات التصدير في نسخة الاوفيس رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 8, 2016 مشاركة قام بنشر مايو 8, 2016 أخي الكريم سمير جرب تنصيب الأداة في المرفق التالي ..لعلها تحل مشكلتك SaveAsPDFandXPS.rar 1 رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر مايو 9, 2016 مشاركة قام بنشر مايو 9, 2016 كل الشكر والتقدير استاذي الكريم ابوالبراء الاداة جداً رائعة والكود عمل بشكل ممتاز بارك الله فيك وجزاك كل خير 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 9, 2016 مشاركة قام بنشر مايو 9, 2016 الحمد لله الذي بنعمته تتم الصالحات ..هذا من فضل ربي ، ولئن شكرتم لأزيدنكم الحمد لله أن تم المطلوب على خير تقبل وافر تقديري واحترامي رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر مايو 12, 2016 مشاركة قام بنشر مايو 12, 2016 السلام عليكم استاذي الكريم ابوالبراء انا في حيرة !! .. هل اطرح المشكلة هنا أم أطرحها في موضوع جديد؟ على كل حال هذه المشكلة. هناك مشكلة في التصدير للاكسل عن طريق هذه الاداة والمشكلة هي ظهور الارقام بالانكليزي 123 بعد التصدير مع انها في الورقة بالعربي حاولت أن اغير في اعداداها فلم تحل المشكلة ......... هل من حل؟ ملاحظة : في برامج الطابعة الافتراضية لتحويل الى pdf يتم التحويل مع الحفاظ على تنسيق الارقام رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 12, 2016 مشاركة قام بنشر مايو 12, 2016 وعليكم السلام أخي العزيز سمير النجار لقد مررت بهذه المشكلة من قبل ، وبعد ما بحثت كثيراً ولم أجد الحل ، اتضح لي أن المشكلة سببها نسخة أوفيس 2007 .. جرب نسخة أحدث وسيعمل معك بكفاءة وبدون مشاكل على الإطلاق ، لذا أنصح بنسخة أحدث 2013 أو 2016 ... رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر مايو 12, 2016 مشاركة قام بنشر مايو 12, 2016 جزاك الله كل خير إن شاء الله سأفعل وطبعاً نسخة 2013 ، 2016 ليست بحاجة لهذه الأداة ، لأن تنسيق pdf يكون اساسياً . 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.