沁平 / office开发 / 如何从客户端 VBScript 自动化 Excel

分享

   

如何从客户端 VBScript 自动化 Excel

2007-08-28  沁平

何从客户端 VBScript 自动化 Excel

文章编号 : 198703
最后修改 : 2006年3月3日
修订 : 4.1

概要

本文介绍在用户单击网页上的按钮时启动并自动化 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>
            

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    ×
    ×

    ¥.00

    微信或支付宝扫码支付:

    开通即同意《个图VIP服务协议》

    全部>>