Como utilizar o componente Web de folha de cálculo com o Visual Basic

Traduções de Artigos Traduções de Artigos
Artigo: 235883 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Se pretender utilizar um motor de folha de cálculo ou cálculo na sua solução do Visual Basic personalizada, pode utilizar o controlo de folha de cálculo incluído com o Microsoft Office Web Components. Este artigo explica como inserir uma folha de cálculo como um controlo num formulário do Visual Basic e preencher a folha de cálculo com dados.

Mais Informação

Pode adicionar os componentes Web do Office a um formulário no Visual Basic da mesma forma que adiciona qualquer outro controlo ActiveX. O controlo de folha de cálculo incluído com os componentes Web do Office é uma opção mais robusta do que o controlo DataGrid que é fornecido com o Visual Basic. Utilize os dados de folha de cálculo para apresentar dados formatados, calcular fórmulas e permitir interactividade do utilizador.

importante : para visualizar e trabalhar com qualquer um dos componentes Web do Office, tem de ter os instalado no computador. Os componentes são instalados com o Microsoft Office 2000 ou, se a empresa tiver uma licença de site do Office 2000, os componentes podem ser transferidos a partir da sua intranet. Os utilizadores tem de ter estes componentes instalados bem e tem de ser abrangidos por uma licença do Office 2000. Os utilizadores e devem utilizar o Microsoft Internet Explorer versão 4.01 ou posterior.

Passos para criar um projecto de exemplo

  1. Crie um novo projecto EXE padrão no Visual Basic. É criado o Form1 por predefinição.
  2. Adicione uma referência para Microsoft Office Web Components 9.0.
  3. Adicione o controlo de folha de cálculo da caixa de ferramentas do Visual Basic ao formulário.
  4. O controlo de folha de cálculo pode ser apresentado e utilizado como uma folha de cálculo ou pode ser oculto e utilizado como um motor de cálculo para controlos visíveis na página.
Trabalhar com a folha de cálculo do controlo no Visual Basic é quase idêntico para trabalhar com uma folha de cálculo no Excel. Os métodos e propriedades que utilizar para manipular o componente de folha de cálculo são semelhantes aos que utilizaria quando automatizar o Excel.

Preencher um controlo de folha de cálculo

Pode adicionar dados a um controlo de folha de cálculo das seguintes formas:
  • Introduza dados directamente na grelha.
  • Copiar e colar dados de folha, ficheiro de texto ou documento do Excel.
  • Importar dados de um ficheiro de texto ou uma página Web. Para mais informações consulte o tópico LoadText método e o tópico de propriedades HTMLURL na ajuda online.
  • Escreva código para preencher a folha de cálculo com dados.
Tenha em atenção que não existe nenhuma forma de ligar o controlo de folha de cálculo directamente aos dados.

O seguinte procedimento preenche e formata um controlo de folha de cálculo com dados provenientes de dados de exemplo Adamastor (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
				


Note que um controlo de folha de cálculo não é um livro e contém apenas uma única folha. A propriedade ActiveSheet refere-se sempre a essa única folha.

Obter ajuda

Depois de criar uma referência à biblioteca componentes Web do Office, pode aceder ajuda através do localizador de objectos ou do separador Geral da caixa de ferramentas de propriedades da folha de cálculo. Também pode localizar e clicar duas vezes no ficheiro de ajuda Msowcvba.chm. Para obter ajuda sobre uma palavra-chave específica, realce a palavra-chave e prima a tecla F1 . Para obter informações sobre como criar referências e utilizar o objecto de modelo de ajuda, consulte a ajuda no Visual Basic ou Visual Basic for Applications.

Pode ligar um controlo de gráfico a um controlo de folha de cálculo. Para obter informações adicionais sobre o controlo de gráfico, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft:
235885Como utilizar o componente Web de gráficos com VB

Referências

Para obter mais informações sobre componentes Web do Office, consulte o capítulo 12, "Utilizar Web tecnologias," no ' Manual ' do Microsoft Office 2000/Visual Basic Programmer.

Propriedades

Artigo: 235883 - Última revisão: 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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 235883
Exclusão de Responsabilidade para Conteúdo sem Suporte na KB
Este artigo foi escrito sobre produtos para os quais a Microsoft já não fornece suporte. Por conseguinte, este artigo é oferecido "tal como está" e deixará de ser actualizado.

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