جميع تطبيقات المكتب من Microsoft دعم التشغيل الآلي. يمكن تشغيلها كخوادم COM واستخدامها من البرامج النصية المضمنة في المستند أو الخارجية. لذلك ، يمكنك كتابة البيانات إلى مستند Excel من برنامج نصي vba.
ضروري
- - تثبيت تطبيق Microsoft Excel ؛
- - محرر Visual Basic / محرر نصوص.
تعليمات
الخطوة 1
أنشئ حاوية لاستضافة كود vba. إذا كان سيتم تضمين البرنامج النصي في مستند ، فقم بتحميل الملف المناسب إلى Microsoft Excel. افتح محرر Visual Basic بالضغط على Alt + F11. إذا لزم الأمر ، قم بإنشاء وحدة نمطية جديدة (عنصر الوحدة النمطية في قائمة "إدراج"). افتح إحدى الوحدات النمطية أو النماذج. قم بإنشاء معالج لعنصر تحكم النموذج الخاص بك ، أو قم فقط بإضافة إجراء إلى وحدة نمطية. فمثلا:
اختبار فرعي ()
End Sub
إذا كنت تقوم بتطوير برنامج نصي مستقل (أي سيتم تشغيله ضمن Windows Script Host) ، فقم ببساطة بإنشاء ملف بامتداد vbs في محرر نصوص.
الخطوة 2
في البرنامج النصي المضمن في المستند ، أضف تعريفات متغيرة في بداية الإجراء:
خافت oWorkbook باسم Excel
خافت الورقة باسم Excel
الأول لتخزين مرجع إلى كائن مصنف Excel ، والثاني مخصص للورقة.
الخطوه 3
تهيئة المتغيرات بمراجع الكائنات. في البرنامج النصي vbs ، أنشئ كائن تطبيق Excel (سيؤدي ذلك إلى تشغيل Excel كخادم COM):
تعيين oApplication = CreateObject ("Excel. Application").
في البرنامج النصي المضمن في المستند ، سيتم استخدام كائن التطبيق العام بدلاً من متغير oApplication ، الذي يشير إلى كائن التطبيق الحالي. حدد مصنف Excel موجودًا أو افتح مصنفًا جديدًا. فمثلا:
تعيين oWorkbook = Application. Workbooks (1)
تعيين oWorkbook = Application. Workbooks ("Book1")
قم بتعيين oWorkbook = oApplication. Workbooks. Open ("D: / vic / related / tmp / test.xls")
احصل على رابط إلى الورقة المطلوبة من الكتاب:
تعيين oSheet = oApplication. Sheets ("Sheet1")
الخطوة 4
اكتب البيانات إلى Excel من البرنامج النصي vba. استخدم مجموعة الخلايا ، وهي خاصية لكائن ورقة المصنف المشار إليه في الخطوة السابقة ، في متغير oSheet. مثال على كتابة سلسلة لخلية واحدة قد يبدو كالتالي:
oSheet. Cells (1، 1) = "ستتم كتابة السلسلة في الخلية A1"
الخطوة الخامسة
في البرنامج النصي vbs ، أضف الكود لحفظ البيانات وإغلاق تطبيق Excel:
oWorkbook. حفظ
o التطبيق
الخطوة 6
احفظ ونفذ البرنامج النصي. في محرر Visual Basic ، اضغط على Ctrl + S ثم ضع المؤشر في نص الإجراء واضغط على F5. احفظ البرنامج النصي vbs على القرص ثم قم بتشغيله كملف عادي.
