إنشاء مصنف Excel من خلال VB.Net

اذهب الى الأسفل

إنشاء مصنف Excel من خلال VB.Net Empty إنشاء مصنف Excel من خلال VB.Net

مُساهمة من طرف أبوسجود في الأحد أغسطس 04, 2013 8:22 am

بسم الله الرحمن الرحيم

قرأت مقال أخى الكريم أحمد مناع عن كيفية التعامل مع مصنفات الاكسل من خلال الفجوال بيسك 6  [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]  .....ولقد اعجبنى كثيرا لذلك قررت أن اقوم بشرح كيفية إنشاء مصنف Excel من خلال VB.Net ....

1_ قم بإنشاء مشروع جديد و إضافة زر امر على النافذة

2_ أضف المكتبة  Microsoft Excel Object Library الى المشروع و ذلك من خلال الخطوات التالية :

_    من القائمة Projec حدد إضافة مرجع Add Reference كما فى الصورة التالية :



  1. إنشاء مصنف Excel من خلال VB.Net Vb.net_excel_sheet1


_ ضمن علامة التبويب COM تحديد موقع المكتبة Microsoft Excel Object Library ، ثم انقر فوق تحديد.


إنشاء مصنف Excel من خلال VB.Net Vb.net_excel_sheet2



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

و النتيجة عند تشغيل البرنامج كما فى الصور التالية :

إنشاء مصنف Excel من خلال VB.Net Vb.net_excel_sheet3


. إنشاء مصنف Excel من خلال VB.Net Vb.net_excel_sheet4


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
avatar
أبوسجود
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 101
النقاط : 187
التقيم : 8
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى