Excel bir istemci taraf� VBScript'ten nas�l otomatikle�tirilir

Makale numaras�: 198703 - Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Hepsini a� | Hepsini kapa

Bu makalede, Microsoft Visual Basic Scripting Edition (VBScript) istemci taraf� kodu, ba�lat�r ve kullan�c� bir Web sayfas�ndaki bir d��meyi t�klatt��nda, Microsoft Office Excel veya Microsoft Excel'in otomatikle�tirir g�stermektedir.

�ste | Geri Bildirim Ver

Daha fazla bilgi

�rnek kod

A�a��daki HTML dosyas�n� bir metin d�zenleyicisinde olu�turun ve dosyay� c:\excel.htm 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 �nternet Explorer'� ba�lat�n, c:\excel.htmAdres �ubu�una yaz�n ve ENTER tu�una bas�n.
D��menin sayfada g�r�nt�lenen Ek Yard�m d��mesini t�klat�n.

Not G�venlik Uyar�s� hakk�nda sayfadaki bir ActiveX denetimi taraf�ndan istendi�inde, Evet ' i t�klat�n.

�ste | Geri Bildirim Ver

Referanslar

Daha fazla bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

195826

(http://support.microsoft.com/kb/195826/ )

CreateObject istemci taraf�nda �al��an komut dosyalar� ba�ar�s�z olur.

�ste | Geri Bildirim Ver

�zellikler

Makale numaras�: 198703 - Son G�zden Ge�irme: 23 Ocak 2007 Sal� - G�zden ge�irme: 5.2

Bu makaledeki bilginin uyguland�� durum:

Microsoft Office Excel 2007
Microsoft Office Excel 2003
Microsoft Excel 2002 Standard Edition
Microsoft Excel 2000 Standard Edition
Microsoft Excel 97 Standard Edition
Visual Basic, Scripting Edition 5.0

kbmt kbhowto KB198703 KbMttr

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:198703

(http://support.microsoft.com/kb/198703/en-us/ )

�ste | Geri Bildirim Ver