كيفية أتمتة Microsoft Excel من Visual Basic .NET

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية301982
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
توضح هذه المقالة كيفية إنشاء التنفيذ العميل لبرنامج Microsoft Excel باستخدام Microsoft Visual Basic .NET.
معلومات أخرى
تم التنفيذ التلقائي للعملية التي تسمح للتطبيقات التي تتم كتابتها في لغات مثل Visual Basic برمجياً التحكم في التطبيقات الأخرى. إمكانية التنفيذ التلقائي إلى Excel من تنفيذ إجراءات مثل إنشاء مصنف جديد أو إضافة البيانات إلى المصنف أو إنشاء مخططات. مع Excel وتطبيقات Microsoft Office الأخرى الواقع كافة الإجراءات التي يمكن تنفيذها يدويًا خلال واجهة مستخدم يمكن أيضاً إجراء برمجياً باستخدام التنفيذ.

كشف Excel هذه الوظيفة البرمجي خلال نموذج كائن. طراز الكائن عبارة عن مجموعة من الفئات وأساليب بدور نسخ مكونات المنطقية من Excel. على سبيل المثال، يوجد كائن التطبيق و كائن مصنف على كائن ورقة عمل كل منها يحتوي على وظيفة هذه المكونات من Excel. الوصول إلى طراز كائن من Visual Basic .NET ، يمكنك تعيين مرجع مشروع إلى مكتبة النوع.

هذا المقال يوضح كيفية تعيين مرجع المشروع المناسبة إلى مكتبة النوع Excel Visual Basic .NET ويوفر نموذج التعليمة البرمجية لأتمتة Excel.

إنشاء أحد عملاء التنفيذ التلقائي لبرنامج Microsoft Excel

  1. بدء تشغيل Microsoft Visual Studio .NET.
  2. من القائمة ملف، انقر فوق جديد ثم انقر فوق المشروع. حدد تطبيق Windows من أنواع مشروع Visual Basic. يتم إنشاء Form1 بشكل افتراضي.
  3. إضافة مرجع إلى كائن Microsoft Excel مكتبة. للقيام بذلك، اتبع الخطوات التالية:
    1. من القائمة المشروع انقر فوق إضافة مرجع.
    2. ضمن علامة التبويب COM تحديد موقع مكتبة كائنات Microsoft Excel ثم انقر فوق تحديد.

      ملاحظة يتضمن Microsoft Office 2003 "التجميعات Interop الأساسية" (PIAs). لا يتضمن Microsoft Office XP PIAs ولكن يمكن تنزيلها. لمزيد من المعلومات حول Office XP PIAs انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
      328912Microsoft Office XP الأساسي إمكانية التشغيل المتداخل التجميعات (PIAs) المتوفرة للتحميل
    3. انقر فوق موافق في إضافة مراجع مربع الحوار لقبول التحديدات.
  4. من القائمة عرض، حدد Toolbox لعرض مربع الأدوات ثم قم بإضافة زر إلى Form1.
  5. انقر نقراً مزدوجاً فوق Button1. يظهر إطار التعليمات البرمجية للنموذج.
  6. في الإطار "تعليمات برمجية" ، حدد موقع التعليمة البرمجية التالية: استبدال
        Private Sub Button1_Click(ByVal sender As System.Object, _      ByVal e As System.EventArgs) Handles Button1.Click    End Sub					
    التعليمات البرمجية السابقة مع التعليمات البرمجية التالية:
        Private Sub Button1_Click(ByVal sender As System.Object, _      ByVal e As System.EventArgs) Handles Button1.Click        Dim oXL As Excel.Application        Dim oWB As Excel.Workbook        Dim oSheet As Excel.Worksheet        Dim oRng As Excel.Range        ' Start Excel and get Application object.        oXL = CreateObject("Excel.Application")        oXL.Visible = True        ' Get a new workbook.        oWB = oXL.Workbooks.Add        oSheet = oWB.ActiveSheet        ' Add table headers going cell by cell.        oSheet.Cells(1, 1).Value = "First Name"        oSheet.Cells(1, 2).Value = "Last Name"        oSheet.Cells(1, 3).Value = "Full Name"        oSheet.Cells(1, 4).Value = "Salary"        ' Format A1:D1 as bold, vertical alignment = center.        With oSheet.Range("A1", "D1")            .Font.Bold = True            .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter        End With        ' Create an array to set multiple values at once.        Dim saNames(5, 2) As String        saNames(0, 0) = "John"        saNames(0, 1) = "Smith"        saNames(1, 0) = "Tom"        saNames(1, 1) = "Brown"        saNames(2, 0) = "Sue"        saNames(2, 1) = "Thomas"        saNames(3, 0) = "Jane"        saNames(3, 1) = "Jones"        saNames(4, 0) = "Adam"        saNames(4, 1) = "Johnson"        ' Fill A2:B6 with an array of values (First and Last Names).        oSheet.Range("A2", "B6").Value = saNames        ' Fill C2:C6 with a relative formula (=A2 & " " & B2).        oRng = oSheet.Range("C2", "C6")        oRng.Formula = "=A2 & "" "" & B2"        ' Fill D2:D6 with a formula(=RAND()*100000) and apply format.        oRng = oSheet.Range("D2", "D6")        oRng.Formula = "=RAND()*100000"        oRng.NumberFormat = "$0.00"        ' AutoFit columns A:D.        oRng = oSheet.Range("A1", "D1")        oRng.EntireColumn.AutoFit()        ' Manipulate a variable number of columns for Quarterly Sales Data.        Call DisplayQuarterlySales(oSheet)        ' Make sure Excel is visible and give the user control        ' of Excel's lifetime.        oXL.Visible = True        oXL.UserControl = True        ' Make sure that you release object references.        oRng = Nothing        oSheet = Nothing        oWB = Nothing        oXL.Quit()        oXL = Nothing        Exit SubErr_Handler:        MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)    End Sub    Private Sub DisplayQuarterlySales(ByVal oWS As Excel.Worksheet)        Dim oResizeRange As Excel.Range        Dim oChart As Excel.Chart        Dim oSeries As Excel.Series        Dim iNumQtrs As Integer        Dim sMsg As String        Dim iRet As Integer        ' Determine how many quarters to display data for.        For iNumQtrs = 4 To 2 Step -1            sMsg = "Enter sales data for" & Str(iNumQtrs) & " quarter(s)?"            iRet = MsgBox(sMsg, vbYesNo Or vbQuestion _               Or vbMsgBoxSetForeground, "Quarterly Sales")            If iRet = vbYes Then Exit For        Next iNumQtrs        ' Starting at E1, fill headers for the number of columns selected.        oResizeRange = oWS.Range("E1", "E1").Resize(ColumnSize:=iNumQtrs)        oResizeRange.Formula = "=""Q"" & COLUMN()-4 & CHAR(10) & ""Sales"""        ' Change the Orientation and WrapText properties for the headers.        oResizeRange.Orientation = 38        oResizeRange.WrapText = True        ' Fill the interior color of the headers.        oResizeRange.Interior.ColorIndex = 36        ' Fill the columns with a formula and apply a number format.        oResizeRange = oWS.Range("E2", "E6").Resize(ColumnSize:=iNumQtrs)        oResizeRange.Formula = "=RAND()*100"        oResizeRange.NumberFormat = "$0.00"        ' Apply borders to the Sales data and headers.        oResizeRange = oWS.Range("E1", "E6").Resize(ColumnSize:=iNumQtrs)        oResizeRange.Borders.Weight = Excel.XlBorderWeight.xlThin        ' Add a Totals formula for the sales data and apply a border.        oResizeRange = oWS.Range("E8", "E8").Resize(ColumnSize:=iNumQtrs)        oResizeRange.Formula = "=SUM(E2:E6)"        With oResizeRange.Borders(Excel.XlBordersIndex.xlEdgeBottom)            .LineStyle = Excel.XlLineStyle.xlDouble            .Weight = Excel.XlBorderWeight.xlThick        End With        ' Add a Chart for the selected data.        oResizeRange = oWS.Range("E2:E6").Resize(ColumnSize:=iNumQtrs)        oChart = oWS.Parent.Charts.Add        With oChart            .ChartWizard(oResizeRange, Excel.XlChartType.xl3DColumn, , Excel.XlRowCol.xlColumns)            oSeries = .SeriesCollection(1)            oSeries.XValues = oWS.Range("A2", "A6")            For iRet = 1 To iNumQtrs                .SeriesCollection(iRet).Name = "=""Q" & Str(iRet) & """"            Next iRet            .Location(Excel.XlChartLocation.xlLocationAsObject, oWS.Name)        End With        ' Move the chart so as not to cover your data.        With oWS.Shapes.Item("Chart 1")            .Top = oWS.Rows(10).Top            .Left = oWS.Columns(2).Left        End With        ' Free any references.        oChart = Nothing        oResizeRange = Nothing    End Sub					
  7. قم بإضافة التعليمات البرمجية التالية إلى أعلى Form1.vb:
    Imports Microsoft.Office.Core					

اختبار العميل التنفيذ التلقائي

  1. اضغط F5 لإنشاء و لتشغيل البرنامج.
  2. في النموذج، انقر فوق Button1. تبدأ تشغيل Excel البرنامج و بملء البيانات على ورقة عمل جديدة.
  3. عندما تتم مطالبتك بإدخال بيانات المبيعات الربع سنوية ، انقر فوق "نعم". يتم إضافة تخطيط مرتبطة ببيانات الربع سنوية إلى ورقة العمل.
مراجع
لمزيد من المعلومات، قم بزيارة موقع المطور Microsoft Network (MSDN) التالي على الويب:
تطوير Microsoft Office مع Visual Studio
http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx
لمزيد من المعلومات حول Excel و Visual Basic "، انقر فوق رقم المقالة التالي لعرضها في" قاعدة المعارف لـ Microsoft:
219151كيفية أتمتة Microsoft Excel من Visual Basic
التنفيذ التلقائي automating xl2003 أتمتة createobject

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 301982 - آخر مراجعة: 12/06/2015 03:27:54 - المراجعة: 8.3

Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbpia kbautomation kbhowto KB301982 KbMtar
تعليقات