Al momento sei offline in attesa che la connessione Internet venga ristabilita

Come automatizzare Excel da un VBScript sul lato client

Il presente articolo è stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell’utente. Tuttavia, un articolo tradotto in modo automatico non è sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, più o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non è la sua. Microsoft non è responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell’utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.

Clicca qui per visualizzare la versione originale in inglese dell’articolo: 198703
Sommario
In questo articolo viene illustrato Microsoft Visual Basic, Scripting Edition (VBScript) codice client che avvia e automatizza Microsoft Office Excel o Microsoft Excel, quando un utente sceglie un pulsante in una pagina Web.
Informazioni

Codice di esempio

  1. Creare il file HTML riportato di seguito in qualsiasi editor di testo e salvare il file come 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. Avviare Microsoft Internet Explorer, digitare c:\excel.htm nella barra degli indirizzi e quindi premere INVIO.
  3. Fare clic sul pulsante visualizzato nella pagina.

    Nota Se è richiesto da un avviso di protezione su un controllo ActiveX nella pagina, fare clic su .
Riferimenti
Per ulteriori informazioni, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito riportato:
195826Ha esito negativo CreateObject da script sul lato client
XL2007 XL2003 XL2002 XL2000 XL97

Avviso: questo articolo è stato tradotto automaticamente

Proprietà

ID articolo: 198703 - Ultima revisione: 01/23/2007 22:15:13 - Revisione: 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 KbMtit
Feedback