Automatisieren von Excel aus einem clientseitigen VBScript

  • Artikel
  • Gilt für::
    Microsoft Excel

Zusammenfassung

In diesem Artikel wird clientseitiger Code von Microsoft Visual Basic, Scripting Edition (VBScript) veranschaulicht, der Microsoft Office Excel oder Microsoft Excel startet und automatisiert, wenn ein Benutzer auf eine Schaltfläche auf einer Webseite klickt.

Weitere Informationen

Beispielcode

  1. Erstellen Sie die folgende HTML-Datei in einem beliebigen Text-Editor, und speichern Sie die Datei als 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. Starten Sie Microsoft Internet Explorer, geben Sie c:\excel.htm in die Adressleiste ein, und drücken Sie dann die EINGABETASTE.

  3. Klicken Sie auf die Schaltfläche, die auf der Seite angezeigt wird.

Hinweis

Wenn Sie von einer Sicherheitswarnung zu einem ActiveX-Steuerelement auf der Seite aufgefordert werden, klicken Sie auf "Ja".