Como listar todas as propriedades de um arquivo do Excel em uma planilha?

Neste artigo, apresento um código VBA para listar todas as propriedades da pasta de trabalho ativa em uma planilha.

1. Pressione as teclas Alt + F11 para habilitar a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código abaixo no módulo em branco.

VBA: Listar todas as propriedades

Sub WBProperties()
'UpdatebyKutools20191031
    Dim xWB As Workbook
    Dim xF As Long
    Dim xStr As String
    Dim xWSh As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    xStr = "Workbook Properties"
    Set xWB = Application.ActiveWorkbook
    Set xWSh = xWB.Worksheets.Item(xStr)
    If Not xWSh Is Nothing Then
        xWSh.Delete
    End If
    Set xWSh = xWB.Worksheets.Add
    xWSh.Name = xStr
    xWSh.Range("A1").Value = "Property"
    xWSh.Range("B1").Value = "Value"
    With xWB
        For xF = 1 To .BuiltinDocumentProperties.Count
            xWSh.Range("A65536").End(xlUp).Offset(1, 0).Value = _
            .BuiltinDocumentProperties.Item(xF).Name
            xWSh.Range("A65536").End(xlUp).Offset(0, 1).Value = _
            .BuiltinDocumentProperties.Item(xF).Value
        Next xF
    End With
    Application.DisplayAlerts = True
End Sub

3. Pressione F5 para executar o código; uma nova planilha chamada Propriedades da Pasta de Trabalho foi criada na frente da planilha ativa, listando todas as propriedades da pasta de trabalho ativa.

---

As Melhores Ferramentas de Produtividade para o Office

Kutools para Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• Barra de Fórmulas Super (edite facilmente várias linhas de texto e fórmulas); Layout de Leitura (leia e edite facilmente um grande número de células); Cole em Intervalo Filtrado...
• Mesclar Células/Linhas/Colunas mantendo os dados; Dividir conteúdo de células; Combinar Linhas Duplicadas e Somar/Média... Prevenir Células Duplicadas; Comparar Intervalos...
• Selecionar Linhas Duplicadas ou Únicas; Selecionar Linhas em Branco (todas as células estão vazias); Super Localizar e Localização Difusa em Muitas Pastas de Trabalho; Seleção Aleatória...
• Cópia Exata de Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias planilhas; Inserir Marcadores, Caixas de Seleção e mais...
• Favoritar e Inserir rapidamente Fórmulas, Intervalos, Gráficos e Imagens; Criptografar Células com senha; Criar Lista de Correspondência e enviar emails...
• Extrair Texto, Adicionar Texto, Remover por Posição, Remover Espaço; Criar e Imprimir Estatísticas da Página de Dados; Converter entre o Conteúdo das Células e Comentários...
• Super Filtro (salvar e aplicar esquemas de filtro em outras planilhas); Classificação Avançada por mês/semana/dia, frequência e mais; Filtro Especial por negrito, itálico...
• Consolidar Pastas de Trabalho e Planilhas; Mesclar Tabelas com base em colunas-chave; Dividir Dados em Múltiplas Planilhas; Conversão em Lote de xls, xlsx e PDF...
• Agrupamento de Tabela Dinâmica por número da semana, dia da semana e mais... Mostrar Células Desbloqueadas, Bloqueadas por cores diferentes; Destacar Células Que Contêm Fórmula/Nome...

Leia Mais... Teste Gratuito de 30 Dias com Todos os Recursos... Comprar... 

---

Office Tab - traz a interface com guias para o Office e torna seu trabalho muito mais fácil

• Habilite a edição e leitura com guias no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novas abas da mesma janela, em vez de em novas janelas.
• Aumenta sua produtividade em 50% e reduz centenas de cliques de mouse para você todos os dias!

Leia Mais... Teste Gratuito de 30 Dias com Todos os Recursos... Comprar...