أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية إنشاء ماكرو Excel باستخدام التنفيذ من Visual Basic .NET

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

اضغط هنا لرابط المقالة باللغة الانجليزية303871
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
للحصول على إصدار Microsoft Visual C# .NET من هذه المقالة، راجع 303872.

في هذه المهمة

الموجز
توضح هذه المقالة خطوة بخطوة حول كيفية لجعل Microsoft Excel من Microsoft Visual Basic .NET لإنشاء مصنف يحتوي على ماكرو جديد مقترن زر CommandBar.

back to the top

خطوات إنشاء تطبيق .NET نموذج Visual Basic

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

      ملاحظة يتضمن Microsoft Office 2003 التجميعات إمكانية التشغيل المتداخل الأساسية (PIAs). لا يتضمن Microsoft Office XP PIAs ولكن قد يتم تحميل. للحصول على معلومات إضافية حول Office XP PIAs ، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
      328912INFO: Microsoft Office XP PIAs المتوفرة التحميل
    3. حدد Microsoft Visual Basic لمكتبة التوسعة للتطبيقات ثم انقر فوق تحديد.
    4. انقر فوق موافق في مربع الحوار إضافة مراجع لقبول التحديدات.
  4. من القائمة عرض، انقر فوق مربع أدوات لعرض مربع الأدوات ثم إضافة زر إلى Form1.
  5. انقر نقراً مزدوجاً فوق Button1. يتم فتح إطار التعليمات البرمجية في الحدث onClick لـ Button1. قم بإضافة السطر التالي فوق "الفئة عام" Form1:
       Imports Office = Microsoft.Office.Core					
  6. في الإطار "تعليمات برمجية" ، قم بإضافة التعليمات البرمجية التالية:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As      System.EventArgs) Handles Button1.Click   Dim oExcel As Excel.Application   Dim oBook As Excel.Workbook   Dim oModule As VBIDE.VBComponent   Dim oCommandBar As Office.CommandBar   Dim oCommandBarButton As Office.CommandBarControl   Dim sCode As String   ' Create an instance of Excel, and show it to the user.   oExcel = New Excel.Application()   ' Add a workbook.   oBook = oExcel.Workbooks.Add   ' Create a new VBA code module.   oModule = oBook.VBProject.VBComponents.Add(VBIDE.vbext_ComponentType.vbext_ct_StdModule)   sCode = "sub VBAMacro()" & vbCr & _      "   msgbox ""VBA Macro called"" " & vbCr & _      "end sub"   ' Add the VBA macro to the new code module.   oModule.CodeModule.AddFromString(sCode)   Try      ' Create a new toolbar, and show it to the user.      oCommandBar = oExcel.CommandBars.Add("VBAMacroCommandBar")      oCommandBar.Visible = True      ' Create a new button on the toolbar.      oCommandBarButton = oCommandBar.Controls.Add(Office.MsoControlType.msoControlButton)      ' Assign a macro to the button.      oCommandBarButton.OnAction = "VBAMacro"      ' Set the caption of the button.      oCommandBarButton.Caption = "Call VBAMacro"      ' Set the icon on the button to a picture.      oCommandBarButton.FaceId = 2151   Catch exc As Exception         MessageBox.Show("VBAMacroCommandBar already exists.", "Error")   End Try   oExcel.Visible = True   ' Set the UserControl property so that Excel does not shut down.   oExcel.UserControl = True   ' Release the variables.   oCommandBarButton = Nothing   oCommandBar = Nothing   oModule = Nothing   oBook = Nothing   oExcel = Nothing   ' Force garbage collection.   GC.Collect()End Sub					
  7. قم بإضافة التعليمات البرمجية التالية إلى أعلى Form1.vb:
    Imports Office = Microsoft.Office.CoreImports Microsoft.Office.InteropImports VBIDE = Microsoft.Vbe.Interop					
  8. اضغط F5 لإنشاء البرنامج وتشغيله ثم.
  9. انقر فوق Button1 بدء تشغيل Excel إدراج Visual Basic for Applications (VBA) رمز ثم قم بإضافة عنصر تحكم CommandBar جديد. انقر فوق الزر على CommandBar لتشغيل VBA في الماكرو.
back to the top

ملاحظات إضافية لـ Office XP

تطبيقات Microsoft Office XP و Microsoft Office 2003 لها خيار أمان يسمح بالوصول المبرمج إلى طراز كائن VBA. إذا كان هذا الإعداد إيقاف (الافتراضي) ، قد تتلقى خطأ عند تشغيل نموذج التعليمة البرمجية. للحصول على معلومات إضافية حول هذا الإعداد كيف يمكنك تصحيح الخطأ انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
282830PRB: تم رفض الوصول بالوصول إلى مشروع VBA XP Office
back to the top
مراجع
للحصول على معلومات إضافية، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
194611إنشاء و مكالمة على ماكرو Excel برمجياً من VB
back to the top
xl2003 الماكرو vba

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

خصائص

رقم الموضوع: 303871 - آخر مراجعة: 12/06/2015 04:04:57 - المراجعة: 7.2

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 kbhowtomaster KB303871 KbMtar
تعليقات