Como usar o componente da planilha na Web com o Visual Basic

Traduções deste artigo Traduções deste artigo
ID do artigo: 235883 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Se você desejar usar um mecanismo de cálculo ou planilha em sua solução personalizada do Visual Basic, você pode usar o controle de planilha incluído com o Microsoft Office Web Components. Este artigo descreve como inserir uma planilha como um controle em um formulário do Visual Basic e preencher a planilha com dados.

Mais Informações

Você pode adicionar o Office Web Components a um formulário no Visual Basic da mesma maneira que você adicionar qualquer outro controle ActiveX. O controle de planilha incluído com o Office Web Components é uma opção mais eficiente que o controle DataGrid que acompanha o Visual Basic. Use os dados da planilha para exibir dados formatados, calcular fórmulas e permitir interatividade do usuário.

importante : para exibir e trabalhar com qualquer um dos Office Web Components, você deve tê-los instalado no computador. Os componentes são instalados com o Microsoft Office 2000 ou, se sua empresa tiver uma licença de site do Office 2000, os componentes podem ser baixados do sua intranet. Os usuários devem ter esses componentes instalados, bem e devem ser cobertos por uma licença do Office 2000. Você e seus usuários devem usar o Microsoft Internet Explorer versão 4.01 ou posterior.

Etapas para criar um projeto de exemplo

  1. Crie um novo projeto Standard EXE no Visual Basic. O Form1 é criado por padrão.
  2. Adicione uma referência ao Microsoft Office Web Components 9.0.
  3. Adicione o controle de planilha da caixa de ferramentas Visual Basic ao formulário.
  4. O controle de planilha pode ser exibido e usado como uma planilha, ou pode ser oculto e usado como um mecanismo de cálculo para controles visíveis na página.
Trabalhar com a planilha de controle no Visual Basic é quase idêntico ao trabalhar com uma planilha do Excel. Os métodos e propriedades que você usar para manipular o componente planilha são semelhantes aos que você usaria ao automatizar o Excel.

Ao preencher um controle de planilha

Você pode adicionar dados a um controle de planilha das seguintes maneiras:
  • Inserir dados diretamente na grade.
  • Copiar e colar dados de uma planilha de Excel, arquivo de texto ou documento do Word.
  • Importar dados de um arquivo de texto ou uma página da Web. Para obter mais informações consulte o tópico do método LoadText e o tópico da propriedade HTMLURL na Ajuda on-line.
  • Escreva código para preencher a planilha com dados.
Observe que não há nenhuma maneira de vincular o controle de planilha a dados diretamente.

O procedimento a seguir preenche e formata um controle de planilha com dados do banco de dados exemplo Northwind (NWind.mdb):
Sub GetNwindData()

    Dim rstEmployees As Object
    Dim cnn As String
    Dim strSQL As String
    Dim fldCount As Integer
    Dim intIRow As Integer
    Dim intICol As Integer
    Dim varData As Variant

    'Create recordset and fill with records from Northwind sample database.
    Set rstEmployees = CreateObject("ADODB.Recordset")
    cnn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"
    strSQL = "SELECT FirstName, LastName, Title, Extension FROM Employees ORDER BY LastName"
    rstEmployees.Open strSQL, cnn, 3 ' adOpenStatic = 3
    
    'Clear any existing values from the spreadsheet control.
    Spreadsheet1.ActiveSheet.Cells(1, 1).Select
    Spreadsheet1.ActiveSheet.UsedRange.Clear

    'Add the field names as column headers.
    For fldCount = 0 To rstEmployees.Fields.Count - 1
        intIRow = intIRow + 1
        Spreadsheet1.ActiveSheet.Cells(1, intIRow).Value = rstEmployees.Fields(fldCount).Name
    Next

    'Fill the control with data from the database.
    Dim iNumCols As Integer
    Dim iNumRows As Integer
    
    iNumCols = rstEmployees.Fields.Count
    iNumRows = rstEmployees.Recordcount
    varData = rstEmployees.GetRows(iNumRows)
    
    For intIRow = 1 To iNumRows
        For intICol = 1 To iNumCols
            Spreadsheet1.ActiveSheet.Cells(intIRow + 1, intICol).Value = varData(intICol - 1, intIRow - 1)
        Next
    Next

    'Format the headers in row 1 with a Bold Font that is 11 points.
    With Spreadsheet1.ActiveSheet.Range(Spreadsheet1.Cells(1, 1),
Spreadsheet1.ActiveSheet.Cells(1, iNumCols)).Font
        .Bold = True
        .Size = 11
    End With
    
    'AutoFit the columns and make all text left-aligned.
    With Spreadsheet1.ActiveSheet.Range(Spreadsheet1.Cells(1, 1),
Spreadsheet1.ActiveSheet.Cells(iNumRows + 1, iNumCols))
        .AutoFitColumns
        .HAlignment = ssHAlignLeft
    End With

End Sub
				


Observe que um controle de planilha não é uma pasta de trabalho e contém somente uma única folha. A propriedade ActiveSheet sempre se refere ao que única folha.

Obtendo ajuda

Depois de criar uma referência à biblioteca Office Web Components, você pode acessar a Ajuda através do Pesquisador de objeto ou na guia Geral da caixa de ferramentas de propriedade da planilha. Pode também localizar e clique duas vezes no arquivo de Ajuda Msowcvba.chm. Para obter ajuda sobre uma palavra-chave específica, realce a palavra-chave e pressione a tecla F1 . Para obter informações sobre como criar referências e usar o objeto do modelo de Ajuda, consulte a Ajuda no Visual Basic ou Visual Basic for Applications.

Você pode acoplar um controle gráfico a um controle de planilha. Para obter informações adicionais sobre o controle gráfico, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
235885Como usar o componente da Web de gráfico com VB

Referências

Para obter mais informações sobre o Office Web Components, consulte o capítulo 12, "Usando tecnologias de Web", no guia do Microsoft Office 2000/Visual Basic Programmer.

Propriedades

ID do artigo: 235883 - Última revisão: quarta-feira, 14 de julho de 2004 - Revisão: 1.2
A informação contida neste artigo aplica-se a:
  • Microsoft Office Spreadsheet Component 9.0
Palavras-chave: 
kbmt kbhowto kbofficewebspread KB235883 KbMtpt
Tradução automática
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: 235883
Aviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado
Este artigo trata de produtos para os quais a Microsoft não mais oferece suporte. Por esta razão, este artigo é oferecido "como está" e não será mais atualizado.

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com