Excel automatiseren vanuit VBScript aan de clientzijde
Samenvatting
In dit artikel wordt code aan de clientzijde van Microsoft Visual Basic, Scripting Edition (VBScript) weergegeven waarmee Microsoft Office Excel of Microsoft Excel wordt gestart en geautomatiseerd wanneer een gebruiker op een knop op een webpagina klikt.
Meer informatie
Voorbeeldcode
Maak het volgende HTML-bestand in een teksteditor en sla het bestand op 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>
Start Microsoft Internet Explorer, typ c:\excel.htm in de adresbalk en druk op Enter.
Klik op de knop die op de pagina wordt weergegeven.
Opmerking
Als u wordt gevraagd om een beveiligingswaarschuwing over een ActiveX-besturingselement op de pagina, klikt u op Ja.