L�m th? n�o �? t? �?ng ho� Excel t? m?t VBScript ph�a kh�ch h�ng

ID c?a b�i: 198703 - Xem s?n ph?m m� b�i n�y �p d?ng v�o.

Th�ng b�o: b�i vi?t n�y l� b�i ��?c d?ch b?i M�y d?ch

Nh?p chu?t v�o ��y �? hi?n th? b?n g?c Ti?ng anh v� b?n d?ch m�y theo ch? �? so s�nh.

Bung t?t c? | Thu g?n t?t c?

B�i vi?t n�y minh ho? Microsoft Visual Basic, Scripting Edition (VBScript) client-side m? m� ra m?t v� t? �?ng h�a Microsoft Office Excel ho?c Microsoft Excel khi ng�?i d�ng nh?p chu?t v�o m?t n�t tr�n m?t trang Web.

Quay l?i �?u trang | Cung c��p Pha�n h��i

TH�NG TIN TH�M

Ma� m��u

T?o t?p HTML sau trong b?t k? tr?nh so?n th?o v�n b?n v� l�u c�c t?p tin l� 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>

B?t �?u Microsoft Internet Explorer, lo?i c:\excel.htm trong c�c �?a ch? qu?y bar, v� sau �� nh?n ENTER.
Nh?p v�o n�t ��?c hi?n th? tr�n trang.

Chu� y� N?u b?n �ang th�c �?y b?i m?t c?nh b�o b?o m?t v? �i?u khi?n ActiveX tr�n trang, h?y nh?p v�o Co�.

Quay l?i �?u trang | Cung c��p Pha�n h��i

THAM KH?O

�? bi?t th�m th�ng tin, h?y b?m va�o s? b�i vi?t sau �? xem b�i vi?t trong C� s? Ki?n th?c Microsoft:

195826

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

CreateObject th?t b?i t? k?ch b?n ph�a m�y kh�ch

Quay l?i �?u trang | Cung c��p Pha�n h��i

Thu?c t�nh

ID c?a b�i: 198703 - L?n xem x�t sau c�ng: 06 Tha�ng M��i 2011 - Xem x�t l?i: 3.0

�p d?ng

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

kbhowto kbmt KB198703 KbMtvi

M�y d?ch

QUAN TRO�NG: B�i vi?t n�y ��?c d?ch b?ng ph?n m?m d?ch m�y c?a Microsoft ch? kh�ng ph?i do con ng�?i d?ch. Microsoft cung c?p c�c b�i vi?t do con ng�?i d?ch v� c? c�c b�i vi?t do m�y d?ch �? b?n c� th? truy c?p v�o t?t c? c�c b�i vi?t trong C� s? Ki?n th?c c?a ch�ng t�i b?ng ng�n ng? c?a b?n. Tuy nhi�n, b�i vi?t do m�y d?ch kh�ng ph?i l�c n�o c?ng ho�n h?o. Lo?i b�i vi?t n�y c� th? ch?a c�c sai s�t v? t? v?ng, c� ph�p ho?c ng? ph�p, gi?ng nh� m?t ng�?i n�?c ngo�i c� th? m?c sai s�t khi n�i ng�n ng? c?a b?n. Microsoft kh�ng ch?u tr�ch nhi?m v? b?t k? s? thi?u ch�nh x�c, sai s�t ho?c thi?t h?i n�o do vi?c d?ch sai n?i dung ho?c do ho?t �?ng s? d?ng c?a kh�ch h�ng g�y ra. Microsoft c?ng th�?ng xuy�n c?p nh?t ph?n m?m d?ch m�y n�y.

Nh?p chu?t v�o ��y �? xem b?n ti?ng Anh c?a b�i vi?t n�y:198703

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

Quay l?i �?u trang | Cung c��p Pha�n h��i