Del via

Slik automatiserer du Excel fra en VBScript på klientsiden

  • Gjelder for: Microsoft Excel

Sammendrag

Denne artikkelen illustrerer Microsoft Visual Basic, Scripting Edition (VBScript) kode på klientsiden som starter og automatiserer Microsoft Office Excel eller Microsoft Excel når en bruker klikker en knapp på en nettside.

Mer informasjon

Eksempelkode

  1. Opprett følgende HTML-fil i et hvilket som helst tekstredigeringsprogram, og lagre filen som 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. Start Microsoft Internet Explorer, skriv inn c:\excel.htm i adresselinjen , og trykk deretter ENTER.

  3. Klikk knappen som vises på siden.

Merk

Hvis du blir bedt om en sikkerhetsadvarsel om en ActiveX-kontroll på siden, klikker du Ja.