В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

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

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

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

Пример кода

  1. Создайте следующий HTML-файл в любом текстовом редакторе и сохраните файл с именем 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. Запуск обозревателя Internet Explorer, тип c:\Excel.htm В диалоговом окне Адрес полосы, а затем нажмите клавишу ВВОД.
  3. Нажмите кнопку, которая отображается на странице.

    Примечание Если появляется предупреждение системы безопасности о элемента управления ActiveX на странице, нажмите кнопку Да.
Ссылки
Для получения дополнительных сведений щелкните следующий номер статьи базы знаний Майкрософт:
195826Функция CreateObject не выполняется из клиентского сценария
XL2007 XL2003 XL2002 XL2000 XL97

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 198703 — последний просмотр: 10/06/2011 00:50:00 — редакция: 7.0

Microsoft Office Excel 2007, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 97 Standard Edition

  • kbhowto kbmt KB198703 KbMtru
Отзывы и предложения