إنشاء مصنف Excel من خلال VB.Net
صفحة 1 من اصل 1 • شاطر
إنشاء مصنف Excel من خلال VB.Net
بسم الله الرحمن الرحيم
قرأت مقال أخى الكريم أحمد مناع عن كيفية التعامل مع مصنفات الاكسل من خلال الفجوال بيسك 6 [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] .....ولقد اعجبنى كثيرا لذلك قررت أن اقوم بشرح كيفية إنشاء مصنف Excel من خلال VB.Net ....
1_ قم بإنشاء مشروع جديد و إضافة زر امر على النافذة
2_ أضف المكتبة Microsoft Excel Object Library الى المشروع و ذلك من خلال الخطوات التالية :
_ من القائمة Projec حدد إضافة مرجع Add Reference كما فى الصورة التالية :
_ ضمن علامة التبويب COM تحديد موقع المكتبة Microsoft Excel Object Library ، ثم انقر فوق تحديد.
3_ انقر نقرا مزدوجا فوق إطار التعليمات البرمجية، تحت الحدث Click من زر الامر نقوم بكتابة التعليمات التالية :
_ فى قسم التصريحات العامة نقوم باستيراد المكتبة
_ فى حدث النقر لزر الامر نكتب الكود التالى :
و النتيجة عند تشغيل البرنامج كما فى الصور التالية :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
قرأت مقال أخى الكريم أحمد مناع عن كيفية التعامل مع مصنفات الاكسل من خلال الفجوال بيسك 6 [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] .....ولقد اعجبنى كثيرا لذلك قررت أن اقوم بشرح كيفية إنشاء مصنف Excel من خلال VB.Net ....
1_ قم بإنشاء مشروع جديد و إضافة زر امر على النافذة
2_ أضف المكتبة Microsoft Excel Object Library الى المشروع و ذلك من خلال الخطوات التالية :
_ من القائمة Projec حدد إضافة مرجع Add Reference كما فى الصورة التالية :
3_ انقر نقرا مزدوجا فوق إطار التعليمات البرمجية، تحت الحدث Click من زر الامر نقوم بكتابة التعليمات التالية :
_ فى قسم التصريحات العامة نقوم باستيراد المكتبة
- الكود:
Imports Excel = Microsoft.Office.Interop.Excel
_ فى حدث النقر لزر الامر نكتب الكود التالى :
- الكود:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim appXL As Excel.Application
Dim wbXl As Excel.Workbook
Dim shXL As Excel.Worksheet
Dim raXL As Excel.Range
' Start Excel and get Application object.
appXL = CreateObject("Excel.Application")
appXL.Visible = True
' Add a new workbook.
wbXl = appXL.Workbooks.Add
shXL = wbXl.ActiveSheet
' Add table headers going cell by cell.
shXL.Cells(1, 1).Value = "First Name"
shXL.Cells(1, 2).Value = "Last Name"
shXL.Cells(1, 3).Value = "Full Name"
shXL.Cells(1, 4).Value = "Specialization"
' Format A1:D1 as bold, vertical alignment = center.
With shXL.Range("A1", "D1")
.Font.Bold = True
.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
End With
' Create an array to set multiple values at once.
Dim students(5, 2) As String
students(0, 0) = "Zara"
students(0, 1) = "Ali"
students(1, 0) = "Nuha"
students(1, 1) = "Ali"
students(2, 0) = "Arilia"
students(2, 1) = "RamKumar"
students(3, 0) = "Rita"
students(3, 1) = "Jones"
students(4, 0) = "Umme"
students(4, 1) = "Ayman"
' Fill A2:B6 with an array of values (First and Last Names).
shXL.Range("A2", "B6").Value = students
' Fill C2:C6 with a relative formula (=A2 & " " & B2).
raXL = shXL.Range("C2", "C6")
raXL.Formula = "=A2 & "" "" & B2"
' Fill D2:D6 values.
With shXL
.Cells(2, 4).Value = "Biology"
.Cells(3, 4).Value = "Mathmematics"
.Cells(4, 4).Value = "Physics"
.Cells(5, 4).Value = "Mathmematics"
.Cells(6, 4).Value = "Arabic"
End With
' AutoFit columns A:D.
raXL = shXL.Range("A1", "D1")
raXL.EntireColumn.AutoFit()
' Make sure Excel is visible and give the user control
' of Excel's lifetime.
appXL.Visible = True
appXL.UserControl = True
' Release object references.
raXL = Nothing
shXL = Nothing
wbXl = Nothing
appXL.Quit()
appXL = Nothing
Exit Sub
Err_Handler:
MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)
End Sub
End Class
و النتيجة عند تشغيل البرنامج كما فى الصور التالية :
.
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
أبوسجود- ......
- تاريخ التسجيل : 18/02/2011
المساهمات : 101
النقاط : 187
التقيم : 8
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد