Автоматизация Excel из клиентского скрипта VBScript

Сводка

В этой статье показан код на стороне клиента Microsoft Visual Basic, Scripting Edition (VBScript), который запускает и автоматизирует Microsoft Office Excel или Microsoft Excel, когда пользователь нажимает кнопку на веб-странице.

Дополнительные сведения

Пример кода

  1. Создайте следующий HTML-файл в любом текстовом редакторе и сохраните его как к:\ексцел.хтм.

    <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. Запустите Microsoft Internet Explorer, введите к:\ексцел.хтм в адресной строке, а затем нажмите клавишу ВВОД.

  3. Нажмите кнопку, которая отображается на странице.

Примечание

Если на странице появится предупреждение системы безопасности о элементе управления ActiveX, нажмите кнопку Да.