Comment automatiser Excel à partir d’un VBScript côté client
Résumé
Cet article illustre le code côté client Microsoft Visual Basic, Scripting Edition (VBScript) qui lance et automatise Microsoft Office Excel ou Microsoft Excel lorsqu’un utilisateur clique sur un bouton sur une page web.
Informations supplémentaires
Exemple de code
Créez le fichier HTML suivant dans n’importe quel éditeur de texte et enregistrez le fichier en tant que 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>
Démarrez Microsoft Internet Explorer, tapez c:\excel.htm dans la barre d’adresses , puis appuyez sur Entrée.
Cliquez sur le bouton qui s’affiche sur la page.
Remarque
Si vous êtes invité par un avertissement de sécurité concernant un contrôle ActiveX sur la page, cliquez sur Oui.