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

(قسم الاعلانات) الموضوع:يونيفورم - شركة تصنيع يونيفورم فنادق -شركة السلام لليونيفورم 01223182572 بواسطة: (fareda) :: (قسم الاعلانات) الموضوع:شركة نقل عفش بالمدينة المنورة 0547417006 بواسطة: (اسامة الاحمر) :: (قسم الاعلانات) الموضوع:أقوى كاميرات مراقبة داخلية CONVOY بواسطة: (royal sara) :: (قسم الاعلانات) الموضوع:يونيفورم - شركة تصنيع يونيفورم هاوس كيبنج -شركة السلام لليونيفورم 01118689995 بواسطة: (fareda) :: (قسم الاعلانات) الموضوع:يونيفورم - زي حضانه -شركة السلام لليونيفورم 01223182572 بواسطة: (fareda) :: (قسم الاعلانات) الموضوع:يونيفورم - مصنع افرولات - شركة السلام لليونيفورم 01118689995 بواسطة: (fareda) :: (قسم الاعلانات) الموضوع:احدث اشكال الدريسنج روم اسعار مميزة 01210044703 بواسطة: (nadia nadia) :: (قسم التطوير والاقتراحات) الموضوع:ورشة عمل - مهارات و فنون التسويق و الترويج عبر الهاتف بواسطة: (Nermeen metc) :: (قسم التطوير والاقتراحات) الموضوع:دورة متقدمة في مهارات و اجراءات الشحن و عمليات تخزين البضائع بواسطة: (Nermeen metc) :: (قسم الاعلانات) الموضوع:يونيفورم - بدلة حارس الامن - شركة السلام لليونيفورم 01223182572 بواسطة: (fareda) :: (قسم الدعم الفني) الموضوع:شركة ابادة الحشرات الان في مصر بواسطة: (ليان عمر) :: (قسم الاعلانات) الموضوع:ملابس التخرج – سعر ارواب تخرج -شركة السلام لليونيفورم 01223182572 بواسطة: (fareda) :: (قسم الدعم الفني) الموضوع:شركة نقل عفش جدة الان في السعودية بواسطة: (ليان عمر) :: (قسم الاعلانات) الموضوع:يونيفورم – شركات يونيفورم فى مصر-شركة السلام لليونيفورم 01223182572 بواسطة: (fareda) :: (منتدى ADO.NET العام) الموضوع:اطلب تصميم منزلك ثرى دى و احصل علي خرائط التنفيذ مجانا واجهات شقق فلل مودرن كلاسيك بواسطة: (decoration way) :: (قسم الاعلانات) الموضوع:» شاحنه مان موديل 2007. الحجم 18.430 بواسطة: (مؤسسة اعمال خبراتنا) :: (قسم الاعلانات) الموضوع:شركة الفريدة 00971506822764 شركة تنظيف منازل وفلل في الشارقه.شركة تنظيف منازل وفلل في ابو ظبي.شركة تنظيف منازل وفلل في رأس الخيمة.شركة تنظيف منازل وفلل في ابو ظبي.شركة تنظيف منازل وفلل في أم القيوين.شركة تنظيف منازل وفلل في دبي بواسطة: (عبدالرحمان) :: (قسم الاعلانات) الموضوع:شركة السفير بواسطة: (خالدعلي) :: (قسم الاعلانات) الموضوع:شركة التفوق بواسطة: (خالدعلي) :: (قسم الاعلانات) الموضوع:مكتب ترخيص بواسطة: (خالدعلي)


راديو القرآن

المواضيع المثبته: (منتدى مبرمجي ASP) الموضوع:دورة احترافيه لبناء منتدى على asp بواسطة: (عبدالله جابر شقليه) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:ADF بواسطة: (وليد القدسي) :: (منتدى أجاكس(Asynchronous JavaScript and XML)) الموضوع:تقسيم النتائج لعدة صفحات مع 3 لغات برمجة ويب بواسطة: (عبدالله جابر شقليه) :: (منتدى مبرمجي لغة جافا JAVA) الموضوع:درس : الاستثناءات في جافا Exceptions بواسطة: (nardien28) :: (منتدى مبرمجي ASP) الموضوع:مشروع university للجامعات بواسطة: (عبدالله جابر شقليه) :: (قسم التعاميم والشكاوي) الموضوع:صفحة منتديات المحيط العربي على الفيس بوك بواسطة: (ramies) :: (منتدى Microsoft Visual Basic) الموضوع:كيفية إنشاء نظام شؤون الموظفين من الصفر بواسطة: (zoubicom) :: (قسم الدروس و الدورات) الموضوع:دورة شاملة في VB.Net المستوى الأول بواسطة: (مهند عبادي) :: (منتدى أجاكس(Asynchronous JavaScript and XML)) الموضوع:إستخدام Web Services مع ASP.NET AJAX بواسطة: (يوسف جميل جادالله) :: (منتدى برمجة التقارير) الموضوع:مثال Crystal Report بواسطة: (شهرزاد) :: (منتدى برمجة التقارير) الموضوع:كتاب كريستال ريبورت بواسطة: (شهرزاد) :: (منتدى Microsoft SQL Server) الموضوع:ما المقصود بتقنية replication بواسطة: (SQL Student) :: (لغة PHP) الموضوع:مجموعة اكواد رائعة بواسطة: (محمد جمعة) :: (قسم الدروس و الدورات) الموضوع:تعلم : كيف تجعل البرنامج سيت اب بواسطة: (alaa gomaa) :: (قسم الدروس و الدورات) الموضوع:دروس بالفيديو في VB.NET 2005 بواسطة: (HnHn) :: (منتدى Microsoft Excel) الموضوع:تعالوا نتعلم - دروس في الإكسيل بواسطة: (وائل مراد) :: (منتدى برمجة الشبكات في بيئة الدوت نت) الموضوع:Dot Net Networks & TCP/IP Programming بواسطة: (fmo_82) :: (القسم العام) الموضوع:كل موضوع تم شرحه فيديو هنا بواسطة: (startnet) :: (منتدى برمجة الألعاب) الموضوع:أسس تصميم الألعاب ال3Dالتفاعلية بواسطة: (مصطفي البارودي) :: (منتدى الأكسس) الموضوع:مثال يجمع عده افكار به فائده ان شاء الله بواسطة: (startnet)

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

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

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



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

Powered By arabmoheet v3.1

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