Teď jste offline a čekáte, až se znova připojí internet.

Automatizace aplikace Excel pomocí skriptovacího jazyka VBScript na straně klienta (Tento článek může obsahovat odkazy na anglický obsah (dosud nepřeložený).)

Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.

198703
Souhrn
Tento článek ukazuje Microsoft Visual Basic, Scripting Edition (VBScript) kódu na straně klienta, který spustí a automatizuje aplikace Excel nebo Microsoft Excel, když uživatel klepne na tlačítko na webové stránce.
Další informace

Ukázkový kód

  1. Vytvořte následující soubor HTML v jakýkoli text editoru a uložte soubor 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. Spusťte aplikaci Internet Explorer zadejte c:\excel.htm v adresním řádku a stiskněte klávesu ENTER.
  3. Klepněte na tlačítko Zobrazit na stránce.

    Poznámka: Výzvy zabezpečení upozornění o ovládací prvek ActiveX na stránce klepněte na tlačítko Ano.
Odkazy
Další informace naleznete následujícím článku znalostní databáze Microsoft Knowledge Base:
195826CreateObject selže ze skriptů na straně klienta
XL2007 XL2003 XL2002 XL2000 XL97

Upozornění: Tento článek byl přeložen automaticky

Vlastnosti

ID článku: 198703 - Poslední kontrola: 01/23/2007 22:15:13 - Revize: 5.2

  • 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 KbMtcs
Váš názor