如何从客户端 VBScript 自动化 Excel

文章翻译 文章翻译
文章编号: 198703 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

概要

本文介绍在用户单击网页上的按钮时启动并自动化 Microsoft Excel 的 VBScript 客户端代码。

更多信息

示例代码

  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,然后按 Enter。

    结果:在 Excel 中出现一个新的工作簿。新工作簿中的 Sheet1 包含数据并创建了一个新图表。新图表是旋转形状。
注意:如果在单击网页上的按钮时收到错误“ActiveX component can't create object 'createobject'”,请按照本文“参考”一节列出的文章中的说明检查您的安全设置。

参考

有关其他信息,请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
195826 PRB:客户端脚本中的 CreateObject 失败

属性

文章编号: 198703 - 最后修改: 2011年10月6日 - 修订: 5.0
这篇文章中的信息适用于:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 标准版
  • Microsoft Excel 2000 标准版
  • Microsoft Excel 97 标准版
关键字:?
kbhowto KB198703
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com