كود لتصدير ورقة إكسل كملف pdf

[أبو مصعب 1 0]

اخواني الخبراء

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

أرجو المساعدة منكم بشكل عاجل عندي ملف إكسل قمت بعمل اكواد برمجية بلغة الفيجول بيسك عليه

لمحو البيانات و تعبئة البيانات و و و

المهم يوجد كود لحفظ ورقة على من الملف أسمها Form من الاكواد لايعمل

فيجول بيسك لحفظ ورقة على هيئة pdf تسمى Form

ولكن الكود لايعمل واجهل السبب أرجو منكم التعديل على الكود إن أمكن

Sub ExportSheet()
Dim Form As Worksheet
Dim strName As String

Set Form = ActiveSheet
strName = InputBox("أدخل اسم الخطاب:")

Form.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\Legend\Documents\" & strName, _
Quality:=xlQualityStandard, _
OpenAfterPublish:=True

End Sub

[عبد الرحمن أحمد 322]

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

أخي هل تقصد أن الكود داخل ملف الإكسل لا يتم تنفيذه أم ينفذ ولكن لا يعطي النتيجة المطلوبة؟

لأنه لو كان الأول فيجب تعديل خصائص الأمان للملف والذي يحجب أي برمجة داخله.

أما الثاني فضع المطلوب بالضبط لكي نستطيع المساعدة بأفضل الطرق.

وحياك الله

[أبو مصعب 1 0]

اخوي أبو أحمد

أولاً هلابك أخوي وثانياً زر الأمر موجود داخل ملف الإكسل ولكن الكود بالتأكيد داخل الفيجول بيسك

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

ولاتوجد طابعة معرفة عليه وبكذا يصير من الصعب اعطاء أمر للطباعة في محرر الأوامر للإكسل حتى

لو أن الامر مجرد طباعة في الشاشة فقط

بعد تجريب كامل الملف في جهاز آخر الحمدلله أصبح يعمل ويقول بتحويل ورقة العمل المفتوحة "Sheet"

إلى صيغة pdf ومن هنا ظهرت مشكلة أخرى هي أني لا أرغب في تحويل أي ورقة مفتوحة بل أرغب في تحويل

ورقة عمل بعينها فهل اجد عند أخي الحل

تم تعديل 23 May 2012 بواسطه خالد أبو دية

[عبد الرحمن أحمد 322]

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

أخي الكريم

إذا كنت تستخدم اصدارات أوفيس الأخيرة فهناك أمر في القائمة الرئيسية Sava as adobe PDF لأي من برامج الأوفيس سواء إكسيل أو وورد او أكسيس أو بور بوينت أو غيرها

وهي أسرع من أمر الطباعة على طابعة بي دي إف

وتعطيك خيارات في حال كان لديك أكثر من ورك شيت بحيث تختار منها واحد أو أكثر أو الكل

الأمر هذا موجود في القائمة الرئيسية بالنسبة للاصدار 2010 أما أوفيس 2007 فلا أدري إن كان يوجد في القائمة ولكن عند حفظ باسم يوجد من بين خيارات الأنواع النوع PDF و أما عن اصدارات 2003 وما سبق فلا أعلم إن كان هذا الخيار متوفر.

[أبو مصعب 1 0]

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

عن الكود وأبي أعرف وطريقة التعديل عليه إن أمكن فإذا أستطعت بها ونعم وإن لم تستطع

فإني لك من الشاكرين وأقدر مجهودك

[alaaqasem 20]

بخصوص اوفيس 2007 يلزم تنصيب الملف المرفق بحيث تستطيع اضافة الاختيار حفظ باسم  .pdff

 

SaveAsPDF.rar