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

ملخص

توضح هذه المقالة 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. انقر فوق الزر عرض الصفحة.

    ملاحظة: إذا تم مطالبتك بتحذير أمان حول عنصر تحكم على الصفحة، انقر فوق " نعم".

المراجع

لمزيد من المعلومات، انقر فوق رقم المقالة التالية لعرضها في "قاعدة معارف Microsoft":

فشل CreateObject 195826 من البرامج النصية من جانب العميل

خصائص

رقم الموضوع: 198703 - آخر مراجعة: 08‏/01‏/2017 - المراجعة: 1

تعليقات