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

(قسم الاعلانات) الموضوع:التخلص من الفئران بواسطة: (سجيات) :: (قسم الاعلانات) الموضوع:افران معجنات،افران بيتزا،0536775680 بواسطة: (جنون المطر) :: (قسم الاعلانات) الموضوع:شركة الاول لترميم المنازل بالرياض بواسطة: (كوين) :: (قسم الاعلانات) الموضوع:شركة القاضي مظلات سواتر هناجر قرميد بيوت شعر باقل الاسعار 0503115674 بواسطة: (شيماء الصادق) :: (منتدى Microsoft Excel) الموضوع:الحلقة الاولى من مسلسل الاكسل فى رمضان بواسطة: (emadghazi) :: (منتدى الأكسس) الموضوع:المشاركة في اتمام برنانج اصول ثابتة بواسطة: (startnet) :: (قسم الاعلانات) الموضوع:عرض خاص بشهر رمضان على أجهزة الحضور والانصراف ZKTEKO بواسطة: (أحمد النجدي) :: (قسم الاعلانات) الموضوع:شركة تنظيف بواسطة: (أحمد النجدي) :: (قسم الاعلانات) الموضوع:شقق مفروشة للايجار بأفضل المستويات والاسعار بالقاهرة الصور 00201227389733 بواسطة: (أحمد النجدي) :: (قسم الاعلانات) الموضوع:ايوان للاستقدام مصداقية التعامل بواسطة: (أحمد النجدي) :: (قسم الاعلانات) الموضوع:موقع زينارو للإعلانات المبوبة بواسطة: (أحمد النجدي) :: (منتدى Microsoft Excel) الموضوع:شرح دالة VLOOKUP بواسطة: (esamibrahim111) :: (منتدى ADO.NET العام) الموضوع:الارسال عبر خدمة الأبراج sms - lba بواسطة: (فهد بن ال سعود) :: (منتدى الأكسس) الموضوع:المساعدة في إتمام نموذج بحث متقدم بواسطة: (startnet) :: (اقتصاد) الموضوع:احدث تشكيلات مظلات المدارس والسيارات من غاية الافكار الشركة الرائدة بواسطة: (rwan rwan) :: (منتدى الأكسس) الموضوع:المساعدة في استرجاع الجداول من قاعدة بيانات معطوبة بواسطة: (ياسري المملكة) :: (قسم الاعلانات) الموضوع:مدرسة خاصة للبيع بالمعادي مجهزة بالكامل بواسطة: (تسويق الكتروني1) :: (قسم الاعلانات) الموضوع:اختبار الايلتس او توفل مضمونه للبيع 00962790574474 كافة اقطار دول الخليج بواسطة: (احمد العلم1) :: (أخبار التكنولوجيا) الموضوع:أسباب عدم تبريد الثلاجة بواسطة: (nonesaid) :: (أخبار التكنولوجيا) الموضوع:برنامج حسابات بواسطة: (لمياء يوسف)


راديو القرآن

المواضيع المثبته: (قسم أوفيس 2007) الموضوع:هذا القسم ارشيف المشاركات في منتدي الاكسس بواسطة: (startnet) :: (منتدى مبرمجي ASP) الموضوع:كتاب مكون من 16 جزاء يتكلم عن asp بواسطة: (amricost) :: (منتدى Microsoft Visual Basic) الموضوع:عرض الصور المخزنه في قاعدة البيانات بالكريستال ريبورت بواسطة: (ابو حمد) :: (القسم المفتوح) الموضوع:لقاء صحفى بواسطة: (ramies) :: (منتدى Microsoft SQL Server) الموضوع:يومياً أسئلة sql server مجاناً بواسطة: (m.atassi) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:ADF بواسطة: (وليد القدسي) :: (منتدى Microsoft Visual Basic) الموضوع:دروس صوت وصورة للربط بين اسكيوال سيرفر والفجوال بيسيك بواسطة: (wael abed) :: (منتدى أجاكس(Asynchronous JavaScript and XML)) الموضوع:نبذة مختصرة عن تعريف تقنية أجاكس بواسطة: (عبدالله جابر شقليه) :: (منتدى برمجة التقارير) الموضوع:مثال Crystal Report بواسطة: (شهرزاد) :: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:موسوعة الأكواد بواسطة: (fmo_82) :: (منتدى أنظمة الشبكات وأمنها) الموضوع:موسوعة كتب واسطوانات تعليم الشبكات Networking بواسطة: (مرحبا الساع) :: (منتدى Microsoft SQL Server) الموضوع:كيف أقوم بنسخ البيانات فقط من جهازي الى الويب بواسطة: (أبو محمـد) :: (منتدى ADO.NET العام) الموضوع:البدء مع ADO.NET بواسطة: (HnHn) :: (منتدى تصميم صفحات الويب) الموضوع:الجافا سكريبت في كتاب بواسطة: (amricost) :: (القسم المفتوح) الموضوع:نصيحة لوجه الله بواسطة: (غزاوية أصيلة) :: (منتدى برمجة التقارير) الموضوع:كتاب كريستال ريبورت بواسطة: (شهرزاد) :: (منتدى أنظمة الشبكات وأمنها) الموضوع:امن المعلومات وامن الشبكات بواسطة: (khaled helal) :: (منتدى الأكسس) الموضوع:فيديو للشروحات والدروس من عمل الاعضاء بواسطة: (startnet) :: (منتدى برمجة التقارير) الموضوع:اصنع تقريرك في اقل من دقيقه واستغني عن الكريستال ريبورت بواسطة: (mero_make) :: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:موقع جيد به Tutorials و مشاريع مفتوحة المصدر بواسطة: (يوسف)

إضافة رد إضافة موضوع جديد

> طريقة فتح ملف Excel وتحويله إلى PDF عن طريق Office 2007,باستخدام VB.NET
Bookmark and Share
تقييم الموضوع Label معدل التقيم:0
مشاركةالخميس,12/شعبان/1429 هـ,05:25 صباحاً
المشاركة #1

خبيرتحليل نظم و دوت نت
الرتبة في المنتدى:عماد

أيقونة المجموعة

المجموعة: مشرفي الموقع
المشاركات: 3849
سجل في:الأحد,17/محرم/1428 هـ,05:57 صباحاً
الدولة:الأردن
رقم العضوية: 19244





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



طريقة فتح ملف Excel وتحويله إلى PDF عن طريق Office 2007
باستخدام VB.NET



اقدم لكم اليوم درس بطريقة فتح ملفات Excel وتحويل هذا الملف الى PDF عن طريق Office 2007 باستخدام الأداة
Microsoft Office Add-in: Microsoft Save as PDF or XPS 2007
ويمكن تحميلها من هذا الرابط
اضغط هنا لتحميل الاداة

هو يتكون من ثلاث اجراءات بسيطه وفي غاية السهولة

وسنتعلم بهذا الدرس كيفية
1- إضافة reference to the Excel 12.0 Object Library
2- عمل Importing the Excel Interop assembly namespace
3- تخليق ApplicationClass object Excel
4- تعريف المتغيرات المطلوبة
5- عمل إجراءات الفتح والتحويل
6- عمل إجراء إخلاء الذاكرة من الملفات

افتح مشروع جديد ثم نبدأ بالخطوات:
1- إضافة Adding a Reference to the Excel 12.0 Object Library
ولإضافتها نتبع الخطوات التالية : كما في الصورة
‌أ-  نذهب إلى Visual Studio Solution Explorer
‌ب- عمل Select Add Reference
‌ ج- نذهب إلى Select the COM tab في Add Reference
‌د- نبحث عن Microsoft Excel 12.0 Object Library component ونختارها
‌هـ- ثم نضغط OK









2- عمل Importing the Microsoft.Office.Interop.Excel Namespace
ونتبع الخطوات التالية : كما في الصورة

‌أ- نذهب إلى Visual Studio Solution Explorer ثم نضغط على اليمين ونختار Properties
ب- نذهب الى References tab
‌ ج- نذهب إلى Imported Namespaces
‌د- نبحث عن Microsoft.Office.Interop.Excel ونختارها
‌هـ- ثم نغلق الشاشة .




3-4-5-6 نفتح الفورم ونبدأ بكتابة الإجراءات والتعاريف

 كود

Dim excelApplication As ApplicationClass = New ApplicationClass()
Dim excelWorkbook As Workbook = Nothing

Dim SourceBookPath As String = Nothing
Dim ExportFilePath As String = Nothing

Dim ExportFormat As XlFixedFormatType = XlFixedFormatType.xlTypePDF
Dim ExportQuality As XlFixedFormatQuality = xlFixedFormatQuality.xlQualityStandard

Dim OpenAfterPublish As Boolean = False
Dim IncludeDocProps As Boolean = True
Dim IgnorePrintAreas As Boolean = True

Dim FromPage As Object = Type.Missing
Dim ToPage As Object = Type.Missing


نبدأ ألان بعمل الإجراءات

1- ضع زر فتح لملف Excel فم ضع OpenFileDialog من ToolBox وضع هذا الكود

 كود

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.OpenFileDialog1.Filter = "Excel files (*.xls,*.xlsx)|*.xls;*.xlsx"
Me.OpenFileDialog1.ShowDialog()
If Not Me.OpenFileDialog1.FileName Is Nothing Then
SourceBookPath = Me.OpenFileDialog1.FileName
End If
End Sub


2- ضع زر تحويل إلى ملف PDF ثم ضع SaveFileDialog من ToolBox وضع هذا الكود

 كود

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.SaveFileDialog1.Filter = "PDF files (*.PDF)|*.pdf"
Me.SaveFileDialog1.ShowDialog()
If Not Me.SaveFileDialog1.FileName Is Nothing Then
ExportFilePath = Me.SaveFileDialog1.FileName
OpenAndConvert()
End If
End Sub


3- نكتب إجراء التحويل OpenAndConvert

 كود

Private Sub OpenAndConvert()
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
Try
' فتح ملف excel.
excelWorkbook = excelApplication.Workbooks.Open(SourceBookPath)

' تخزين ملف PDF.
If Not excelWorkbook Is Nothing Then
excelWorkbook.ExportAsFixedFormat(ExportFormat, _
ExportFilePath, ExportQuality, _
IncludeDocProps, IgnorePrintAreas, _
FromPage, ToPage, OpenAfterPublish)
End If
Catch ex As Exception
'
Finally
' غلق workbook.
If Not excelWorkbook Is Nothing Then
excelWorkbook.Close(False)
excelWorkbook = Nothing
End If

' الخروج Excel and release the ApplicationClass object.
If Not excelApplication Is Nothing Then
excelApplication.Quit()
excelApplication = Nothing
End If
'لاخلاء الاحداث والبرامج من الذاكرة Garbage Collection
GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()
GC.WaitForPendingFinalizers()
End Try
MsgBox("تم تحويل الملف")
End Sub


تمنياتي لكم بالتوفيق



الملفات المرفقة
 SaveAsPDFandXPS.rar ( 532.39ك ) عدد مرات التنزيل: 3539
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالخميس,12/شعبان/1429 هـ,07:56 صباحاً
المشاركة #2

مشرف سابق لمنتدى VB.NET ADO.NET
الرتبة في المنتدى:لواء

أيقونة المجموعة

المجموعة: المشرفين القدامى
المشاركات: 1592
سجل في:الثلاثاء,26/شعبان/1427 هـ,09:40 صباحاً
الدولة:الأردن
رقم العضوية: 13584



شكرا جزيلا اخي المبدع على هذه الطريقة وفعلا التعامل مع الاكسيل انا اراه سريع جدا و ذا كفائه عاليه
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالخميس,12/شعبان/1429 هـ,11:56 صباحاً
المشاركة #3

الرتبة في المنتدى:ملازم أول

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 265
سجل في:الأحد,07/ذو الحجة/1428 هـ,06:42 صباحاً
الدولة:السعودية
رقم العضوية: 40511



شكراً لك على الطريقة احلوة هذي,,
لكن الاكسل امن
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأحد,22/شعبان/1429 هـ,06:07 صباحاً
المشاركة #4

خبيرتحليل نظم و دوت نت
الرتبة في المنتدى:عماد

أيقونة المجموعة

المجموعة: مشرفي الموقع
المشاركات: 3849
سجل في:الأحد,17/محرم/1428 هـ,05:57 صباحاً
الدولة:الأردن
رقم العضوية: 19244





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


شكرا لكم وجزاكم الله خيرا
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأحد,30/جمادى الأولى/1430 هـ,07:47 مساءً
المشاركة #5

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 109
سجل في:الأحد,10/فر/1429 هـ,07:14 مساءً
الدولة:مصر
رقم العضوية: 45510



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


--------------------


موقعنا يقدم لكم خدمة البحث عن المفقودين
يمكنك ان تعلن عن اطفال مفقودين فى موقعنا مجانا

www.egyptloveme.com
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة

    

عدد المتصفحين لهذا المنتدى «1»: (الضيوف «1» - المتخفون «0»)
الأعضاء «0»: .

إضافة رد جديد إضافة موضوع جديد



 
الوقت الأن:اليوم,09:46 صباحاً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

منتديات المحيط العربي  -  راسلنا  -   أعلى
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)