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

(منتدى البرامج) الموضوع:تصميم وبرمجة تطبيقات الهواتف الذكية مع أطياف بواسطة: (ديزاينر 20) :: (منتدى تصميم صفحات الويب) الموضوع:تصميم وبرمجة تطبيقات الهواتف الذكية مع أطياف بواسطة: (ديزاينر 20) :: (قسم الاعلانات) الموضوع:دورة الإدارة الإلكترونية و مهارات التعامل مع نظم دعم القرار والنظم الخبيرة تعقد في مصر بواسطة: (مي عمر) :: (قسم الاعلانات) الموضوع:عرض خاص خلال الاسبوع علي جهاز حضور والانصراف IDM-950 بواسطة: (eng sara) :: (قسم الاعلانات) الموضوع:دورة تحليل الموازنة العامة تعقد في مختلف دول العالم على مدار العام بواسطة: (المجد للتدريب) :: (قسم الاعلانات) الموضوع:دورات في شؤون الموظفين تعق بواسطة: (المجد للتدريب) :: (قسم الاعلانات) الموضوع:الأنظمة الأمنية المتكاملة بواسطة: (ضيااء) :: (منتدى الأكسس) الموضوع:عدم اخراج كميات بالفاتورة اكبر من الموجودة في طلب التوريد بواسطة: (almosafer almasry) :: (منتدى الأكسس) الموضوع:طلب اتصال الاسكانر مع الفورم اكسيس وعرض الصور بواسطة: (P.C.C) :: (قسم الاعلانات) الموضوع:أفضل شركة عفش بالمدينة المنورة 0554901277 شركات نقل الاثاث اسماء المدينة بواسطة: (اسماء المدينة) :: (منتدى الأكسس) الموضوع:كيف اربط صنف مخزن صيدلية على وحدات مختلفة بواسطة: (iron2010) :: (منتدى الأكسس) الموضوع:تطبيق الشرط فى جملة If اكثر من مرة بواسطة: (amr ashraf) :: (منتدى تصميم صفحات الويب) الموضوع:تصميم وبرمجة تطبيقات الهواتف الذكية مع أطياف بواسطة: (ديزاينر 20) :: (منتدى الأكسس) الموضوع:اضافة اكثر من مستخدم في وقت واحد عن طريق بواسطة: (startnet) :: (منتدى التصميم والجرافيكس) الموضوع:تصميم تطبيقات الجوال مع أطياف بواسطة: (ديزاينر 20) :: (منتدى الأكسس) الموضوع:مطلوب المساعدة من ذوي الخبرة في نموذج ادخال بيانات بواسطة: (startnet) :: (قسم الاعلانات) الموضوع:بمناسبة أعياد الربيع عرض خاص لجهاز حضور والانصراف IDM-950 بواسطة: (eng sara) :: (منتدى ADO.NET العام) الموضوع:شقق مفروشة للايجار بأفضل المستويات والاسعار بالقاهرة الصور 00201227389733 بواسطة: (دنيامحمد) :: (قسم الاعلانات) الموضوع:شقق مفروشة للايجار بأفضل المستويات والاسعار بالقاهرة الصور 00201227389733 بواسطة: (دنيامحمد) :: (منتدى الأكسس) الموضوع:احتاج مساعدتكم يا اهل الخبرة بواسطة: (ابوريداء)


راديو القرآن

المواضيع المثبته: (منتدى التصميم والجرافيكس) الموضوع:سلسلة دروس الفلاش بواسطة: (مبرمجة فلسطينية) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:DECODE SQL STATMENT بواسطة: (mshaqalaih) :: (قسم الدروس و الدورات) الموضوع:دروس فيديو للمهندس عدي لتعليم فيجوال بيسك دوت نت بواسطة: (المهندس عدي) :: (قسم التعاميم والشكاوي) الموضوع:صفحة منتديات المحيط العربي على الفيس بوك بواسطة: (ramies) :: (منتدى Microsoft Visual Basic) الموضوع:شرح ODBC بواسطة: (VB_Manager) :: (منتدى Microsoft Visual Basic) الموضوع:يرجى الإنتباه لجميع الأعضاء الجدد بواسطة: (zoubicom) :: (منتدى الكتب و المقالات) الموضوع:دروس متفرقة خفيفة بواسطة: (أبو أفنان) :: (قسم الدروس و الدورات) الموضوع:تعلم : كيف تجعل البرنامج سيت اب بواسطة: (alaa gomaa) :: (منتدى أنظمة الشبكات وأمنها) الموضوع:أنواع الشبكات الحاسوبية بواسطة: (مرحبا الساع) :: (منتدى Microsoft Excel) الموضوع:open office بواسطة: (ramies) :: (قسم الدروس و الدورات) الموضوع:برمجة بصمة الاصبع مع الدوت نت Microsoft FingerPrint Reader بواسطة: (FunctionSys) :: (منتدى Microsoft Visual Basic) الموضوع:نظام إدارة المرتبات للمدارس Salary System 2008 بواسطة: (Max Bayne) :: (قسم الاعلانات) الموضوع:الرجاء عدم تكرار الاعلانات حتي يستفيد الجميع من المنتدي بواسطة: (startnet) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية ربط الأوراكل مع asp.net بواسطة: (عبدالله جابر شقليه) :: (قسم الـ portable) الموضوع:أفضل برامج مفيدة للكمبيوتر وتعمل Portable اي بدون تنصيب بواسطة: (أبو ليان) :: (منتدى البرامج) الموضوع:شروحات لبرامجك المفضلة بواسطة: (junkbki) :: (منتدى الكتب و المقالات) الموضوع:الشرح الكامل التفصيلي المصور لمعرفة نسخة الأكسيس وتخفيض الأمان برمجيا بواسطة: (zahrah) :: (القسم المفتوح) الموضوع:إلا رسول الله صلى الله عليه وسلم بواسطة: (alanees) :: (منتدى Microsoft Visual Basic) الموضوع:بنك اكواد المحيط العربي بواسطة: (محمد جمعة) :: (منتدى ADO.NET العام) الموضوع:البدء مع ADO.NET بواسطة: (HnHn)

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

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

Powered By arabmoheet v3.1

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