Excel aus ASP aufrufen, füllen und darstellen

Problem: Sie müssen auf einer Website ein Excelsheet mit Diagrammen etc. automatisch erstellen und dem Benutzer zur Verfüung stellen. Dies ist nicht so einfach. Nachfolgendes Beispiel zeigt auf, wie Excel instanziiert wird und Werte sowie ein Diagram erstellt wird. Das Beispiel zeigt Excel als visible = true, was in der Praxis nicht der Fall sein dürfte, da dieses ja am Server geschieht. jedoch können die restlichen Anferderungen dann leicht nachgestellt werden.

Hier der komplette Code, der so geschrieben bereits funktionstüchtig ist.

   <%@ Language=VBScript %>
   <%Response.Buffer="true"%>
<INPUT id=button1 name=button1 type=button value=Button><P>
<SCRIPT LANGUAGE="VBScript">
    sub button1_onclick()
       ' erzeugen einer Instanz von Excel
       dim app
       set app = createobject("Excel.Application")

       ' Anzeigen von Excel
       app.Visible = true

       ' Ein neues Workbook hinzufügen
       dim wb
       set wb = app.workbooks.add

       ' Ein Array mit Werten füllen
       dim arr(19,9) ' Note: VBScript beginnt bei 0
       for i = 1 to 20
          for j = 1 to 10
             arr(i-1,j-1) = i*j
          next
       next

       ' Ein Range setzten, das genau dem Array entspricht
       dim rng
       set rng = wb.Activesheet.Range("A1").Resize(20,10)

       ' Das gesamte Array dieser Range zuweisen
       rng.value = arr

       ' Ein neues Diagramm erzeugen
       wb.Charts.Add
       wb.ActiveChart.ChartType = 70 'xl3dPieExploded = art des Diagramms
       wb.ActiveChart.SetSourceData rng, 2 ' xlColumns
       wb.ActiveChart.Location 2, "Sheet1" 'xlLocationAsObject

       'Aktives Chart ansprechen......
       for i = 1 to 360 step 30
         wb.activechart.rotation = i
       next
    end sub
    </SCRIPT>