您目前已離線,請等候您的網際網路重新連線

如何從用戶端 VBScript 自動化 Excel

結論
本文將告訴您如何使用 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. 啟動 Microsoft Internet Explorer,在 [網址] 列輸入 c:\excel.htm,然後按 ENTER 鍵。
  3. 按一下頁面上顯示的按鈕。

    注意 如果頁面上出現關於 ActiveX 控制項的安全警告提示,請按一下 [是]
参考
如需詳細資訊,請按一下下面的文件編號,檢視「Microsoft 知識庫」中的文件:
195826CreateObject fails from client-side scripts
XL2007 XL2003 XL2002 XL2000 XL97
內容

文章識別碼:198703 - 最後檢閱時間:10/06/2011 00:46:00 - 修訂: 2.0

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

  • kbhowto KB198703
意見反應
="https://c.microsoft.com/ms.js">