如何從用戶端 VBScript 將 Excel 自動化

發行項
06/20/2023
適用於:

Microsoft Excel

摘要

本文說明 Microsoft Visual Basic Scripting Edition (VBScript) 用戶端程式代碼，當使用者按一下網頁上的按鈕時，會啟動並自動化 Microsoft Office Excel 或 Microsoft Excel。

其他相關資訊

範例程式碼

在任何文字編輯器中建立下列 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>

啟動 Microsoft Internet Explorer，在網址列中輸入c:\excel.htm，然後按 ENTER 鍵。
按一下頁面上顯示的按鈕。

注意事項

如果頁面上有關于 ActiveX 控制項的安全性警告提示您，請按一下 [ 是]。

如何從用戶端 VBScript 將 Excel 自動化

摘要

其他相關資訊

範例程式碼

其他資源