excel'i istemci tarafı VBScript'ten otomatikleştirme
Özet
Bu makalede, bir kullanıcı Web sayfasındaki bir düğmeye tıkladığında Microsoft Office Excel veya Microsoft Excel'i başlatan ve otomatik hale getiren Microsoft Visual Basic, Scripting Edition (VBScript) istemci tarafı kodu gösterilmektedir.
Daha Fazla Bilgi
Örnek kod
Herhangi bir metin düzenleyicisinde aşağıdaki HTML dosyasını oluşturun ve dosyayı c:\excel.htm olarak kaydedin.
<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'ı başlatın, Adres çubuğuna c:\excel.htm yazın ve ENTER tuşuna basın.
Sayfada görüntülenen düğmeye tıklayın.
Not
Sayfadaki bir ActiveX denetimi hakkında güvenlik uyarısı istenirse Evet'e tıklayın.