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

كيفية أتمتة Excel من VBScript العميل

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

اضغط هنا لرابط المقالة باللغة الانجليزية198703
الموجز
يوضح هذا المقال Microsoft Visual Basic Scripting Edition (VBScript) العميل رمز الذي يقوم بتشغيل ثم بأتمتة Microsoft Office Excel أو Microsoft Excel عند قيام مستخدم بالنقر فوق زر على صفحة ويب.
معلومات أخرى

نموذج التعليمات البرمجية

  1. إنشاء ملف HTML التالية في أي نص محرر وحفظ الملف كـ c:\excel.htm.
    <HTML><BODY><INPUT id=button1 name=button1 type=button value=Button><SCRIPT LANGUAGE="VBScript">       sub button1_onclick()          ' Launch Excel          dim app          set app = createobject("Excel.Application")              ' Make it visible          app.Visible = true              ' Add a new workbook          dim wb          set wb = app.workbooks.add              ' Fill array of values first...          dim arr(19,9) ' Note: VBScript is zero-based          for i = 1 to 20             for j = 1 to 10                arr(i-1,j-1) = i*j             next          next              ' Declare a range object to hold our data          dim rng          set rng = wb.Activesheet.Range("A1").Resize(20,10)              ' Now assign them all in one shot...          rng.value = arr              ' Add a new chart based on the data          wb.Charts.Add          wb.ActiveChart.ChartType = 70 'xl3dPieExploded          wb.ActiveChart.SetSourceData rng, 2 ' xlColumns          wb.ActiveChart.Location 2, "Sheet1" 'xlLocationAsObject              ' Rotate it around...          for i = 1 to 360 step 30             wb.activechart.rotation = i          next          ' Give the user control of Excel          app.UserControl = true       end sub</SCRIPT></BODY></HTML>					
  2. بدء تشغيل Microsoft Internet Explorer، واكتب c:\excel.htm في شريط العناوين ثم ثم اضغط ENTER.
  3. انقر فوق الزر عرض على الصفحة.

    ملاحظة إذا تمت مطالبتك بواسطة تحذير أمان حول عنصر تحكم ActiveX على الصفحة, انقر فوق "نعم".
مراجع
لمزيد من المعلومات، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
195826فشل CreateObject من البرامج النصية من جانب العميل
xl2007 xl2003 xl2002 xl2000 xl97

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

خصائص

رقم الموضوع: 198703 - آخر مراجعة: 01/23/2007 22:15:13 - المراجعة: 5.2

Microsoft Office Excel 2007, Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 97 Standard Edition, Visual Basic, Scripting Edition 5.0

  • kbmt kbhowto KB198703 KbMtar
تعليقات
/html>=">cript> >/html>tForLargeScreens track by $index" class="col-sm-6 col-xs-24 ng-scope"> España - Español
Paraguay - Español
Venezuela - Español
/c1.microsoft.com/c.gif?DI=4050&did=1&t=">&did=1&t=">r varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write(" did=1&t=">