• 0
أبو مصعب 1

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

سؤال

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

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

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

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

المهم يوجد كود لحفظ ورقة على من الملف أسمها 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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

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

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

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

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

وحياك الله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخوي أبو أحمد

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

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

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

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

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

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

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

تم تعديل بواسطه خالد أبو دية
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

أخي الكريم

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

SaveAsPDF.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .