Método ReportTable.GetCellText (Project)

Retorna o valor de texto da célula especificada em um objeto ReportTable .

Sintaxe

expression. GetCellText(Linha,Col)

Expressão Uma variável que representa um objeto 'ReportTable'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Linha	Obrigatório	Long	O número da linha na tabela.
Col	Obrigatório	Long	O número da coluna na tabela.
Linha	Obrigatório	INT
Col	Obrigatório	INT

Valor de retorno

String

O valor de texto da célula de tabela especificada.

Comentários

A cadeia de caracteres retornada termina com um caractere newline ( chr(10), que é equivalente ao caractere vbCrLf ).

Exemplo

O exemplo GetTableText encontra todas as tabelas no relatório ativo, obtém o valor de cada célula em uma tabela, remove o último caractere de cada valor (o caractere newline) e, em seguida, imprime os valores da célula de tabela para a janela Imediata no VBE. Para usar a macro GetTableText , crie um projeto com valores como o exemplo especificado no tópico Objeto gráfico e faça as seguintes etapas (consulte Figura 1):

1. Crie manualmente um relatório. Por exemplo, na guia PROJECT da faixa de opções, na lista suspensa Relatórios , escolha Mais Relatórios. Na caixa de diálogo Relatórios , escolha Novo no painel esquerdo, escolha Em branco no painel direito e escolha Selecionar. Na caixa de diálogo Nome do Relatório , digiteReport 1.

2. Adicione duas tabelas ao relatório. Em FERRAMENTAS DE RELATÓRIO na guia DESIGN da faixa de opções, use o comando Tabela no grupo Inserir .

3. Mantenha os valores padrão na primeira tabela, que inclui os campos Nome, Iniciar, Concluir e % Concluir da tarefa de resumo do projeto. Selecione a primeira tabela para exibir o painel de tarefas Lista de Campos e selecione Custo Real e Custo Restante.

4. Selecione a segunda tabela. No painel de tarefas Lista de Campos , altere o Filtro para Todas as Tarefas e selecione Custo Real e Custo Restante. Na tabela, selecione e exclua a coluna Iniciar e a coluna Concluir .

5. Adicione duas caixas de texto ao relatório usando o controle Caixa de Texto no grupo Inserir na faixa de opções. Por exemplo, edite a primeira caixa de texto para mostrar a tarefa de resumoprojeto e edite a segunda caixa de texto para mostrar informações da tarefa.

Figura 1. O relatório de exemplo contém duas tabelas e três caixas de texto

Sub GetTableText()
    Dim theReport As Report
    Dim shp As shape
    Dim theReportTable As ReportTable
    Dim reportName As String
    Dim row As Integer, col As Integer, i As Integer
    Dim output As String
    
    reportName = "Report 1"
    
    For i = 1 To ActiveProject.Reports(reportName).Shapes.Count
        Set shp = ActiveProject.Reports(reportName).Shapes(i)
        Debug.Print shp.Name & "; ID = " & shp.ID
    Next i
    
    For Each shp In ActiveProject.Reports(reportName).Shapes
        If shp.HasTable Then
            Debug.Print vbCrLf & "Table name: " & shp.Name
            
            For row = 1 To shp.Table.RowsCount
                output = vbTab
                
                For col = 1 To shp.Table.ColumnsCount
                    output = output & shp.Table.GetCellText(row, col)
                    output = left(output, Len(output) - 1) & vbTab
                Next col
                
                Debug.Print output
            Next row
        End If
    Next shp
End Sub

Quando você executa a macro GetTableText , a janela Imediata no VBE mostra o texto a seguir. As cinco principais linhas mostram como os objetos de forma são nomeados por padrão e como os valores de ID são criados.

TextBox 1; ID = 2
Table 2; ID = 3
Table 3; ID = 4
TextBox 4; ID = 5
TextBox 5; ID = 6

Table name: Table 2
    Name    Start   Finish  % Complete  Actual Cost Remaining Cost  
    TestShapes  Mon 5/14/12 Tue 5/31/12 58% $1,595.00   $2,125.00   

Table name: Table 3
    Name    % Complete  Actual Cost Remaining Cost  
    T1  100%    $0.00   $0.00   
    T2  71% $1,280.00   $640.00 
    T3  44% $315.00 $765.00 
    T4  0%  $0.00   $720.00

Confira também

Propriedade IDdo objeto ReportTable

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.