Como listar rapidamente os nomes de imagens/nomes de arquivos de uma pasta em células do Excel?

Neste tutorial, fornecerei alguns truques para listar rapidamente todos os nomes de imagens ou nomes de arquivos de uma pasta específica em uma planilha do Excel, conforme mostrado na captura de tela. NAVEGAÇÃO RÁPIDA >Listar nomes de imagens de uma pasta no Excel com VBA >Listar nomes de imagens ou nomes de arquivos de formato específico de uma pasta no Excel com Lista de Nomes de Arquivos >Baixar arquivo de exemplo

No Excel, não há uma função interna que possa listar automaticamente todos os nomes de imagens de uma pasta escolhida em uma célula da planilha, mas aqui tenho um código VBA que pode ajudá-lo a resolver rapidamente essa tarefa.

1. No Excel, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela que aparece, clique em Inserir > Módulo para criar um novo script de Módulo.

3. Copie o código abaixo e cole-o na nova janela de script do Módulo.

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. Pressione F5 tecla, depois disso, uma caixa de diálogo será exibida para você selecionar uma célula onde deseja colocar os nomes das imagens.

5. Clique OK para continuar selecionando a pasta que você deseja listar os nomes das imagens na caixa de diálogo Procurar.

6. Clique OK, agora todos os nomes de imagens na pasta selecionada foram listados no Excel.

Observação: No código VBA, você pode alterar jpg/png/… na string de código If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then para a extensão de arquivo que você precisa, por exemplo, se quiser listar nomes de arquivos no formato doc, basta alterar a string de código para If InStr(1, xFileName, ".doc") > 0 Then.

Se você geralmente precisa listar nomes de arquivos de um ou todos os formatos de uma pasta em células do Excel no seu trabalho diário, o código é complexo e difícil de manipular, mas, com o método abaixo, você pode resolver rapidamente essa tarefa.

Você quer ter um aumento de salário e mais tempo para passar com a família? Office Tab aumenta sua eficiência em 50% no trabalho com o Microsoft Office agora. Inacreditável, trabalhar em dois ou mais documentos é mais fácil e rápido do que em um. Comparado com navegadores conhecidos, a ferramenta com abas no Office Tab é mais poderosa e eficiente. Reduza centenas de cliques do mouse e digitações no teclado todos os dias, diga adeus à síndrome do mouse agora. Se você geralmente trabalha com vários documentos, o Office Tab será um grande economizador de tempo para você. 30-day free trial, nenhum cartão de crédito necessário. Leia MaisBaixar Agora Grátis

Aqui está uma ferramenta – Lista de Nomes de Arquivos no Kutools para Excel, que pode

>> listar todos os nomes de arquivos em todos os formatos de uma pasta em uma nova planilha;

>> listar os nomes de arquivos em um ou vários formatos especificados no Excel;

>> listar nomes de arquivos, incluindo subpastas e arquivos e pastas ocultos no Excel.

Teste Grátis Diga Adeus à Síndrome do Túnel do Carpo e à Espondilose Cervical Agora

300 ferramentas avançadas do Kutools para Excel resolvem 80% tarefas do Excel em segundos, livrando você de milhares de cliques do mouse.

Lide facilmente com 1500 cenários de trabalho, sem precisar perder tempo procurando soluções, e tenha mais tempo para aproveitar a vida. Melhore 80% a produtividade para mais de 110000 pessoas altamente eficazes todos os dias, é claro, incluindo você. Não seja mais atormentado por fórmulas dolorosas e VBA, dê um descanso ao seu cérebro e tenha um humor de trabalho alegre. 30-dia de teste grátis com todos os recursos, devolução do dinheiro em 30 dias sem razão. Um Corpo Melhor Cria Uma Vida Melhor.

Leia Mais Baixar Agora

Após instalar gratuitamente o Kutools para Excel, siga os passos abaixo:

1. Ative a pasta de trabalho onde deseja listar os nomes dos arquivos, depois clique Kutools Plus > Importar/Exportar > Lista de Nomes de Arquivos.

2. Na Lista de Nomes de Arquivos caixa de diálogo, primeiro, clique para selecionar uma pasta da qual deseja listar os nomes dos arquivos, depois você pode marcar as caixas de seleção de Incluir arquivos em subdiretórios e Incluir arquivos e pastas ocultos conforme necessário.

3. Em seguida, selecione o formato de arquivo que deseja listar os nomes na seção Tipo de Arquivo.

Marque a opção Todos os arquivos, isso listará todos os nomes de arquivos em todos os formatos na pasta selecionada

Marque a opção Comuns e selecione o formato de arquivo específico que deseja listar os nomes a partir da lista suspensa, então isso listará todos os nomes de arquivos do formato de arquivo que você escolheu na lista suspensa

Marque a opção Especificar, depois digite as extensões de arquivo (usando vírgula para separá-las) que deseja listar os nomes no campo de texto, então isso listará apenas os nomes de arquivos com as extensões de arquivo inseridas no Excel

4. Escolha a unidade de tamanho conforme necessário a partir da lista suspensa na seção Unidade de Tamanho de Arquivo, se desejar criar um link para os nomes dos arquivos, marque a opção Criar hiperlinks.

5. Clique Ok, uma nova planilha será criada para listar os nomes dos arquivos e algumas informações sobre os arquivos.

Dica: se você deseja listar todos os nomes de planilhas no Excel, pode aplicar o utilitário Criar Lista de Nomes de Planilhas do Kutools para Excel, ele criará uma nova planilha para listar todos os nomes de planilhas vinculáveis.

Kutools para Excel:+ ferramentas úteis e práticas, simplificando tarefas complicadas no Excel em poucos cliques.