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

(قسم الاعلانات) الموضوع:افضل شركات الخدمات بجدة و مكة بواسطة: (رفيف الحياه) :: (قسم التعاميم والشكاوي) الموضوع:تحميل متصفح الانترنت موزيلا فايرفوكس 2020 Mozila firefox للكمبيوتر بنسخته الجديدة بواسطة: (djaber djaber) :: (قسم الاعلانات) الموضوع:افضل خدمات نقل العفش بجدة بواسطة: (رفيف الحياه) :: (أخبار التكنولوجيا) الموضوع:العبوات المعقمة بواسطة: (رفيف الحياه) :: (قسم الاعلانات) الموضوع:متجر احتياجي الإلكتروني بأسعار الجملة بواسطة: (ضياء روحي) :: (أخبار التكنولوجيا) الموضوع:القطره بواسطة: (رفيف الحياه) :: (قسم الاعلانات) الموضوع:كورس الاتجاهات الحديثة في القيادة_20202 بواسطة: (خليج للتدريب) :: (قسم الاعلانات) الموضوع:محامي متخصص في قضايا الاستيلاء علي المال العام كريم ابو اليزيد 01125880000 بواسطة: (meroroma) :: (أخبار التكنولوجيا) الموضوع:الحجر بواسطة: (رفيف الحياه) :: (قسم الاعلانات) الموضوع:محامي متخصص في قضايا الاموال العامه كريم ابو اليزيد 01125 بواسطة: (meroroma) :: (قسم الحماية) الموضوع:تنزيل برنامج انترنت داونلود مانجر كاملا اخر اصدار بواسطة: (amel33210) :: (قسم الاعلانات) الموضوع:نجار بجدة شركة التميز بواسطة: (rody ahmed) :: (قسم الاعلانات) الموضوع:شركة تنظيف منازل بالرياض شركة ركن كلين بواسطة: (rody ahmed) :: (قسم الاعلانات) الموضوع:شركة تنظيف في دبي شركة التميز بواسطة: (rody ahmed) :: (قسم الاعلانات) الموضوع:احسن موقع لتبديل العملات الرقمية بنسب صغيرة بواسطة: (ضياء روحي) :: (قسم الاعلانات) الموضوع:روضة الرياض للخدمات المنزلية بواسطة: (medooo00) :: (قسم الاعلانات) الموضوع:شركة الوسام الذهبي بواسطة: (tareqads) :: (قسم الاعلانات) الموضوع:افضل شركات كشف تسربات المياه المعتمدة بواسطة: (نوران سالم) :: (أخبار التكنولوجيا) الموضوع:توكيل صيانة كريازي بالاسكندرية 035550997 - 01285574566 بواسطة: (roknalmagd6) :: (قسم الاعلانات) الموضوع:باريس مول العاصمة الجديدة بيراميدز للتطوير العقاري بواسطة: (آمال نيو ستارت)

المواضيع المثبته: (منتدى Microsoft Excel) الموضوع:شرح دوال الاكسيل كلِ على حده بواسطة: (ramies) :: (منتدى مبرمجي ASP) الموضوع:كتاب مكون من 16 جزاء يتكلم عن asp بواسطة: (amricost) :: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:مكتبة الأمثلة والتطبيقات للغة #C بواسطة: (النور) :: (منتدى ADO.NET العام) الموضوع:ربط قاعدة البيانات والفرق بين الوضع المتصل والوضع المنفصل وشرحها بالتفصيل بواسطة: (علاء عبدالخالق) :: (منتدى مبرمجي ASP.NET) الموضوع:كتاب تصميم موقع اخباري بواسطة: (م.محمد الساعدي) :: (منتدى الكتب الالكترونية) الموضوع:كتاب لبرامج مصممة بالفيجوال مع أكوادها (الجزء الثاني) بواسطة: (First Star) :: (منتدى برمجة الألعاب) الموضوع:برنامج رائع لتصميم الألعاب بواسطة: (mjxp) :: (القسم المفتوح) الموضوع:الأعمــــال الصالحة المستمــرة للإنســـان بعد وفاته بواسطة: (عبدالله جابر شقليه) :: (قسم الدروس و الدورات) الموضوع:دورة مجانية في الفجوال بيسك دوت نيت و خاصة بالمبتدئين بواسطة: (ITPROGRAMMER) :: (منتدى تحليل و تصميم نظم المعلومات) الموضوع:تعلم كيفية رسم Data Flow Diagram -DFD للنظام بواسطة: (jbsa) :: (منتدى مبرمجي لغة جافا JAVA) الموضوع:درس : الاستثناءات في جافا Exceptions بواسطة: (nardien28) :: (كتب عن VB.NET) الموضوع:كتب VB.NET عربي بواسطة: (عبد الرحمن) :: (منتدى البرامج) الموضوع:برنامج رهيب انتا تتكلم والكمبيوتر يكتب بالعربى بواسطة: (مستشفى الكمبيوتر) :: (منتدى Microsoft Visual Basic) الموضوع:الموضوع الشامل عن جهاز الباركود BarCode بواسطة: (Max Bayne) :: (منتدى مبرمجي ASP.NET) الموضوع:طريقة تحويل ملفات الفيديو إلى Flv وإلتقاط الصور مثل Youtube بواسطة: (عبدالله جابر شقليه) :: (قسم الدروس و الدورات) الموضوع:دوره مجانيه لاحتراف الدوت نت بواسطة: (alaa gomaa) :: (منتدى برمجة التقارير) الموضوع:شرح طريقة اضافة تقرير Crystal Reports في الـ ASP.NET بواسطة: (FunctionSys) :: (منتدى Borland Delphi) الموضوع:دورة تعليمية في تصميم دليل هاتف في دلفي بواسطة: (مهند عبادي) :: (منتدى Microsoft Excel) الموضوع:أكواد جاهزة للإستخدام في اكسل ( ماكروات ) بواسطة: (junkbki) :: (منتدى الكتب و المقالات) الموضوع:أرغب فى تعلم Microsoft Access وإحترافه بواسطة: (Prince4ever)

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

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

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

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

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

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

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

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





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


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

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

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

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



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


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


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

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

    

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

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



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

Powered By arabmoheet v3.1

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