Cómo automatizar Excel desde VBScript de cliente

Resumen

Este artículo demuestra un código-cliente en Microsoft Visual Basic Edición Script (VBScript) que ejecuta y automatiza Microsoft Office Excel o Microsoft Excel cuando un usuario presiona un boton en una página web

Más información

Código de ejemplo

  1. Cree el siguiente archivo HTML en cualquier editor de texto y guarde el archivo como 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. Inicie Microsoft Internet Explorer, escriba c:\excel.htm en la barra de direcciones y, a continuación, presione ENTRAR.
  3. Haga clic en el botón que se muestra en la página.

    Nota: Si se le pide por una advertencia de seguridad acerca de un control ActiveX en la página, haga clic en .

Referencias

Para obtener más información, haga clic en el siguiente número de artículo para verlo en Microsoft Knowledge Base:

195826 CreateObject falla de secuencias de comandos de cliente

Propiedades

Id. de artículo: 198703 - Última revisión: 01/08/2017 - Revisión: 1

Comentarios