فايز فراج قام بنشر أغسطس 5, 2017 مشاركة قام بنشر أغسطس 5, 2017 .. أرجوا من حضراتكم .. .. عمل كود يقوم بتصدير جميع أوراق العمل في ملف .. شيت كنترول .. إلى صيغة PDF شكراااا جزيلا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 5, 2017 مشاركة قام بنشر أغسطس 5, 2017 السلام عليكم اطلع على الرابط التالي وإن شاء الله يفيدك http://yasserkhalilexcellover.blogspot.com/2016/04/export-each-sheet-to-pdf.html 1 رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر أغسطس 6, 2017 مشاركة قام بنشر أغسطس 6, 2017 بعد إذن الاستاذ ياسر زيادة في الفائدة https://www.officena.net/ib/topic/62692-حفظ-الصفحات-pdf/#comment-419651 2 رابط هذا التعليق شارك More sharing options...
فايز فراج قام بنشر أغسطس 6, 2017 الكاتب مشاركة قام بنشر أغسطس 6, 2017 23 ساعات مضت, ياسر خليل أبو البراء said: السلام عليكم اطلع على الرابط التالي وإن شاء الله يفيدك http://yasserkhalilexcellover.blogspot.com/2016/04/export-each-sheet-to-pdf.html السلام عليكم .. أستاذنا الفاضل .. ياسر خليل .. أرجوا من حضرتك .. نسخ الكود داخل ورقة إكسل إضافية من عندك لأن المشكلة تنحصر في : كلما أدخل على رابط حضرتك يدخلنى على صفحات أخرى وخلافه رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 6, 2017 مشاركة قام بنشر أغسطس 6, 2017 وعليكم السلام دعك من تحميل الملف المهم الكود .. استخدم الكود الموجود في الموضوع .. الملف ما هو إلا مثال تطبيقي على الكود Sub Create_PDF_Files_For_Each_Sheet() Dim Ws As Worksheet Dim Fname As String Application.ScreenUpdating = False For Each Ws In ActiveWorkbook.Worksheets On Error Resume Next Fname = ThisWorkbook.Path & "\Exported " & Ws.Name Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False Next Ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub 1 1 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 بارك الله فيك استاذ ياسر ....اعمالك دائما متميزة. لدي طلب بسيط ماذا لو وضعنا في مسار التحويل الى pdf ان يضع كل الملفات المحولة داخل مستند يأخذ نفس اسم مصنف اكسيل او في مستند يسمى مثلا file pdf وبارك الله فيك وشكرا جزيلا لك 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 حمل الملف التالي فيه ما تطلب https://www.file-upload.com/7qfl4h0vguh9 1 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 (معدل) 49 دقائق مضت, ياسر خليل أبو البراء said: حمل الملف التالي فيه ما تطلب https://www.file-upload.com/7qfl4h0vguh9 استاذ ياسر اعتقد انك لم تفهم المطلوب بالضبط اريد وضع الاوراق المحولة داخل مستند (file-fichier) يأخذ نفس اسم المصنف مثلا اذا كان المصنف موجود على سطح المكتب و قمنا بالتحويل هنا ملف pdf سيكون ضاهرا على سطح المكتب كذلك ويتبع مسار المصنف ولكن اريد وضع pdf داخل مستند file Sub Create_PDF_Files_For_Each_Sheet() Dim Ws As Worksheet Dim Fname As String Application.ScreenUpdating = False For Each Ws In ActiveWorkbook.Worksheets On Error Resume Next Fname = ThisWorkbook.Path & "\Exported " & Ws.Name Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False Next Ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub مثلا foldernam:=.....,Filename:=Fname,Quality:=xlQualityStandard, IncludeDocProperties:=True,....... تم تعديل أغسطس 9, 2017 بواسطه زياد عبد الجليل خطأ في صياغة السؤال رابط هذا التعليق شارك More sharing options...
فايز فراج قام بنشر أغسطس 9, 2017 الكاتب مشاركة قام بنشر أغسطس 9, 2017 30 دقائق مضت, ياسر خليل أبو البراء said: حمل الملف التالي فيه ما تطلب https://www.file-upload.com/7qfl4h0vguh9 السلام عليكم .. أستاذنا الفاضل .. ياسرخليل .. قمت حضرتك بالدخول على الرابط ثم قمت بتظليل علامة صح أمام : أنا لست برنامج روبوت .. قمت بجميع المحاولات حتى أن توصلت لصفحة فارغة مكتوب فيها باللغة الإنجليزية 403 forbidden شكرا جزيلا فايز فراج مدرس بالأزهر الشريف رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 وعليكم السلام 015-Export Specific Sheets To One PDF File YasserKhalil.rar 1 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 2 دقائق مضت, ياسر خليل أبو البراء said: وعليكم السلام 015-Export Specific Sheets To One PDF File YasserKhalil.rar السلام عليكم استاذ ياسر لكن لم يتم وضع ملف pdf المحول داخل مستند 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 لم أفهم المطلوب .. 1 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 11 دقائق مضت, ياسر خليل أبو البراء said: لم أفهم المطلوب .. Nouvelle image.bmp Nouvelle image2.bmp 10 دقائق مضت, زياد عبد الجليل said: Nouvelle image.bmp Nouvelle image2.bmp الصورة الاخيرة فيها شرح مبسط للمطلوب image.bmp 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 إذا كنت تقصد عمل مجلد يتم التصدير إليه فقم بإنشاء مجلد في نفس مسار الملف باسم Exported وغير السطر التالي في الكود sNewFilePath = ThisWorkbook.Path & "\Exported\Exported.pdf" رابط هذا التعليق شارك More sharing options...
فايز فراج قام بنشر أغسطس 9, 2017 الكاتب مشاركة قام بنشر أغسطس 9, 2017 في Sunday, August 06, 2017 at 20:02, ياسر خليل أبو البراء said: وعليكم السلام دعك من تحميل الملف المهم الكود .. استخدم الكود الموجود في الموضوع .. الملف ما هو إلا مثال تطبيقي على الكود Sub Create_PDF_Files_For_Each_Sheet() Dim Ws As Worksheet Dim Fname As String Application.ScreenUpdating = False For Each Ws In ActiveWorkbook.Worksheets On Error Resume Next Fname = ThisWorkbook.Path & "\Exported " & Ws.Name Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False Next Ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub السلام عليكم مراعاة حضرتك في الكود بهذه المشاركة حيث قمت بكتابته يدويا لكن المشكلة تنحصر في : ظهور أغلب الكتابة داخل الكود باللون الأحمر أرجوا من حضرتك إلقاء النظرة العابرة على الكود داخل الملف المرفق شكرا جزيلا كود لحفظ الصفحات بي دي اف.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 تفضل الكود .. الأفضل نسخ الكود من داخل الملف المرفق Sub Create_PDF_Files_For_Each_Sheet() Dim Ws As Worksheet Dim Fname As String Application.ScreenUpdating = False For Each Ws In ActiveWorkbook.Worksheets On Error Resume Next Fname = ThisWorkbook.Path & "\Exported " & Ws.Name Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False Next Ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 (معدل) منذ ساعه, ياسر خليل أبو البراء said: إذا كنت تقصد عمل مجلد يتم التصدير إليه فقم بإنشاء مجلد في نفس مسار الملف باسم Exported وغير السطر التالي في الكود sNewFilePath = ThisWorkbook.Path & "\Exported\Exported.pdf" شكرا استاذ ياسر الكود يعمل بشكل جيد بارك الله فيك لكن ماذا لو اردت ان المجلد ياخذ تسمية الملف workbook هل يمكن ذلك Private Sub CommandButton11_Click() Dim Ws As Worksheet Dim Fname As String Application.ScreenUpdating = False For Each Ws In ActiveWorkbook.Worksheets On Error Resume Next Fname = ThisWorkbook.Path & "\Exported\Exported.pdf" & Ws.Name Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False Next Ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub تم تعديل أغسطس 9, 2017 بواسطه زياد عبد الجليل الكود جيد رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 استبدل هذا الجزء "Exported.pdf\ بهذا الجزء \" & ThisWorkbook.Name & ".pdf" 1 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 7 دقائق مضت, ياسر خليل أبو البراء said: استبدل هذا الجزء "Exported.pdf\ بهذا الجزء \" & ThisWorkbook.Name & ".pdf" بارك الله فيك استاذ ياسر هذا تعديل جيد لكن هل يمكن ان يقوم الكود بانشاء المجلد في مسار الملف و تسميته بدون ما اقوم انا بانشاء المجلد اي يقوم الكود اليا بانشاء المجلد وشكرا طلب اخير استاذ ياسر فضلا و تكرما منك ان امكن : - لقد اعجبني هذا الكود نظرا لاختصاره و فعاليته اريد الكود نفسه مختصرا يقوم بنفس العمل لكن لا يحول الى صيغة pdf لكن يحفظ نسخة من الملف بأكمله بصيغة (.xlsx) لكن الملف بأكمله و ليس كل ورقة على حدة ...بارك الله فيك و مليون تريليون شكرا على مرورك الطيب و ردودك المفيدة . 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 9, 2017 مشاركة قام بنشر أغسطس 9, 2017 يفضل طرح موضوع جديد لكل طلب جديد تيسيراً للبحث فيما بعد 3 رابط هذا التعليق شارك More sharing options...
أباالحسن قام بنشر أغسطس 21, 2017 مشاركة قام بنشر أغسطس 21, 2017 الإخوة الأفاضل السلام عليكم فى هذا الملف المكون من ثلاث أوراق مطلوب تصدير جميع هذه الاوراق فى ملف PDF واحد حسب الشروط الاتية 1- اذا كانت الخلية D8 بها بيانات (غير فارغة) يتم تصدير الورقة كما هو الحال فى الورقة AAA1 و AAA2 أما الورقة AAA3 فلا نريد تصديرها لانها فارغة 2- بعض الأوراق بها صفحتان فيجب تصدير الصفحتين (مثل الورقة AAA1) ، وبعض الأوراق بها صفحة واحد مثل (الورقة AAA2) فيجب تصدير الصفحة الواحد وترك الصفحات الباقية الفارغة مع العلم اننى قمت بضبط نطاق الطباعة فى الملف الأصلى (صفحة او اثنين حسب محتوى بيانات كل ورقة) تـصـدير جميع اوراق الملف فى ملف واحد PDF.rar رابط هذا التعليق شارك 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.