Como automatizar o Excel a partir do VBScript um lado do cliente

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 198703
Sumário
Este artigo ilustra Microsoft Visual Basic, código do lado cliente Scripting Edition (VBScript) que inicia e automatiza o Microsoft Office Excel ou Microsoft Excel quando um usuário clica em um botão em uma página da Web.
Mais Informações

Código de exemplo

  1. Crie o seguinte arquivo de HTML em qualquer texto editor e salve o arquivo como 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. Inicie o Microsoft Internet Explorer, digite c:\excel.htm na barra de endereços e, em seguida, pressione ENTER.
  3. Clique no botão exibido na página.

    Observação Se você for solicitado por um aviso de segurança sobre um controle ActiveX na página, clique em Sim .
Referências
Para obter mais informações, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
195826CreateObject Falha de scripts do lado do cliente
XL2007 XL2003 XL2002 XL2000 XL97

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 198703 - Última Revisão: 01/23/2007 22:15:13 - Revisão: 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 KbMtpt
Comentários