Jesteś obecnie w trybie offline. Czekamy na ponowne połączenie z Internetem.

Jak zautomatyzować program Excel z języka VBScript po stronie klienta

WAŻNE: Ten artykuł nie został przetłumaczony przez człowieka, tylko przez oprogramowanie do tłumaczenia maszynowego firmy Microsoft. Firma Microsoft oferuje zarówno artykuły tłumaczone przez ludzi, jak i artykuły tłumaczone maszynowo, dzięki czemu każdy użytkownik może uzyskać dostęp do całej zawartości bazy wiedzy Knowledge Base we własnym języku. Prosimy jednak pamiętać, że artykuły przetłumaczone maszynowo nie zawsze są doskonałe. Mogą zawierać błędy słownictwa, składni i gramatyki, przypominające błędy robione przez osoby, dla których język użytkownika nie jest językiem ojczystym. Firma Microsoft nie odpowiada za wszelkie nieścisłości, błędy lub szkody spowodowane nieprawidłowym tłumaczeniem zawartości oraz za wykorzystanie tej zawartości przez klientów. Oprogramowanie do tłumaczenia maszynowego jest często aktualizowane przez firmę Microsoft.

Anglojęzyczna wersja tego artykułu to:198703
Streszczenie
W tym artykule przedstawiono języka Microsoft Visual Basic, Scripting Edition (VBScript) kodu po stronie klienta, który uruchamia i automatyzuje programu Microsoft Office Excel lub Microsoft Excel, gdy użytkownik kliknie przycisk na stronie sieci Web.
Więcej informacji

Przykładowy kod

  1. Utwórz następujący plik HTML w dowolnym edytorze tekstu i Zapisz plik jako 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. Rozpoczęcie programu Microsoft Internet Explorer, typ c:\Excel.htm w Adres pasek, a następnie naciśnij klawisz ENTER.
  3. Kliknij przycisk, który jest wyświetlany na stronie.

    Uwaga Jeśli użytkownik jest monitowany o ostrzeżenie dotyczące formantu ActiveX na stronie, kliknij przycisk Tak.
Materiały referencyjne
Aby uzyskać więcej informacji kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
195826Metoda CreateObject nie powiedzie się ze skryptów po stronie klienta
XL2007 XL2003 XL2002 XL2000 XL97

Ostrzeżenie: ten artykuł przetłumaczono automatycznie

Właściwości

Identyfikator artykułu: 198703 — ostatni przegląd: 10/06/2011 00:50:00 — zmiana: 4.0

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

  • kbhowto kbmt KB198703 KbMtpl
Opinia
cript>