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

(قسم الاعلانات) الموضوع:عروض برد صيفك بواسطة: (اسامة الاحمر) :: (قسم الاعلانات) الموضوع:ابو عباس لنقل الاثاث داخل وخارج الرياض بواسطة: (المروج للتسويق 3) :: (قسم الاعلانات) الموضوع:كود خصم من موقع اي هرب IHERB بواسطة: (اسامة الاحمر) :: (قسم الاعلانات) الموضوع:شراء اثاث مستعمل بالرياض بواسطة: (eng saeed) :: (قسم الاعلانات) الموضوع:شقق للبيع النزهة محطة برتى مساحات من 100 م الى 250 م بواسطة: (جمعة عللام) :: (قسم الاعلانات) الموضوع:تنظيف البيوت بواسطة: (eng saeed) :: (قسم الاعلانات) الموضوع:نقل اثاث بالرياض بواسطة: (eng saeed) :: (قسم الاعلانات) الموضوع:تنسيق حدائق بواسطة: (eng saeed) :: (قسم الاعلانات) الموضوع:عزل اسطح بالرياض بواسطة: (eng saeed) :: (قسم الاعلانات) الموضوع:تنظيف موكيت و كنب بواسطة: (eng saeed) :: (قسم الاعلانات) الموضوع:تنظيف خزانات بالرياض بواسطة: (eng saeed) :: (قسم الاعلانات) الموضوع:تخزين اثاث بالرياض بواسطة: (eng saeed) :: (قسم الاعلانات) الموضوع:الشركة المتحدة لخدمات الغاز المركزي بواسطة: (محمد علي زنهم) :: (قسم الاعلانات) الموضوع:مكافحة حشرات بالرياض بواسطة: (eng saeed) :: (قسم الاعلانات) الموضوع:اضيفى لمسة جمال الى منزلك من معرض الكامل للاثاث بواسطة: (رمز الهنا) :: (قسم الاعلانات) الموضوع:ابو عباس لشراء الاثاث المستعمل بواسطة: (المروج للتسويق 3) :: (منتدى الأكسس) الموضوع:اريد ان ابحث برقم هوية الشخص بواسطة: (startnet) :: (منتدى برمجة الجرافكس) الموضوع:تصميم فيديوهات media بواسطة: (جرافيرو109) :: (أخبار التكنولوجيا) الموضوع:شهادات توفل وايلتس للبيع 00962798140440 من داخل الامارات اصليه معتمده بواسطة: (دكتور فارس) :: (قسم الاعلانات) الموضوع:مقاول بالرياض0533266762 مؤسيه عيد العنزي للمقاولات بالرياض.مقاول ملاحق ممتاز بالرياض بواسطة: (عبدالرحمان)


راديو القرآن

المواضيع المثبته: (منتدى مبرمجي ASP.NET) الموضوع:كتاب تصميم موقع اخباري بواسطة: (م.محمد الساعدي) :: (منتدى Microsoft Visual Basic) الموضوع:الدليل الأسرع لأبرز المواضيع بواسطة: (HnHn) :: (منتدى Microsoft SQL Server) الموضوع:حصريا:: Microsoft SQL Server 2005,2000 ارجو التثبيت بواسطة: (Djsharawy) :: (قسم التعاميم والشكاوي) الموضوع:شروط المشاركة في المنتدى بواسطة: (عبدالله جابر شقليه) :: (قسم البرامج الجاهزة و الاكواد) الموضوع:مشروع طبيب الاسنان مع السورس كود بواسطة: (ITPROGRAMMER) :: (قسم المواضيع المميزة) الموضوع:أرشيف للمشاركات المتميزة بواسطة: (أبو أفنان) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:E-Business Suite بواسطة: (وليد القدسي) :: (منتدى Microsoft Excel) الموضوع:مكتبة اكسيل كاملة - عربى - انجليزى بواسطة: (junkbki) :: (منتدى برمجة الألعاب) الموضوع:مجموعة من مشاريع الالعاب بواسطة: (مصطفي البارودي) :: (منتدى تصميم صفحات الويب) الموضوع:أرشيف المواضيع المميزة بواسطة: (alanees) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:دورة تحزيم البرامج Setup & Deployment Applications by VS 2008 بواسطة: (Max Bayne) :: (منتدى أنظمة الشبكات وأمنها) الموضوع:موسوعة كتب واسطوانات تعليم الشبكات Networking بواسطة: (مرحبا الساع) :: (منتدى برمجة الجرافكس) الموضوع:الجزء الثانى من دروس تعلم GDI بواسطة: (alaa gomaa) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:DECODE SQL STATMENT بواسطة: (mshaqalaih) :: (منتدى تصميم صفحات الويب) الموضوع:الجافا سكريبت في كتاب بواسطة: (amricost) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:حصرياً : كل شيء يخص الفيجوال بيسك دوت نت - اسطوانات - كتب - أكواد - ال بواسطة: (صائبكو) :: (منتدى Microsoft Visual Basic) الموضوع:الموضوع الشامل عن جهاز الباركود BarCode بواسطة: (Max Bayne) :: (منتدى مبرمجي ASP) الموضوع:تحزين سجلات داخل ملفات اكسل و xml وورد ..إلخ بواسطة: (عبدالله جابر شقليه) :: (منتدى البرامج) الموضوع:برنامج القرآن الكريم كاملاً مع التفسير بواسطة: (tarik-2007) :: (لغة PHP) الموضوع:دوره بي اتش بي بالفيديو php video tutorial بواسطة: (blackmanblack)

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

> طريقة فتح ملف 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ك ) عدد مرات التنزيل: 3544
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالخميس,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»: .

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



 
الوقت الأن:اليوم,11:28 مساءً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

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