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>