Neste tutorial, irei fornecer alguns truques para listar rapidamente todos os nomes de imagens ou nomes de arquivos de uma pasta específica em uma planilha do Excel como a imagem mostrada. NAVEGAÇÃO RÁPIDA >Lista os nomes das imagens de uma pasta no Excel com VBA >Liste nomes de imagens ou nomes de arquivos de formato específico de uma pasta no Excel com a Lista de nomes de arquivos >Baixar arquivo de amostra

No Excel, não há função incorporada que pode listar automaticamente todos os nomes de imagem de uma pasta que você escolher em uma célula de uma planilha, mas aqui eu tenho um código VBA que pode ajudá-lo a resolver esse trabalho rapidamente.

1. No Excel, pressione outro + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.

2. Na janela pop-up, clique em inserção > 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 , em seguida, uma caixa de diálogo aparecerá para você selecionar uma célula para colocar os nomes das imagens.

5. Clique OK para continuar selecionando a pasta na qual deseja listar os nomes das imagens na caixa de diálogo Pesquisar.

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

Observação: No código VBA, você pode 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 Então para a extensão de arquivo que você precisa, por exemplo, se você deseja listar os nomes dos arquivos no formato doc, apenas altere a string de código para If InStr (1, xFileName, ".doc")> 0 Then.

Se você normalmente precisa listar um ou todos os nomes de arquivo de formato de uma pasta na célula do Excel em seu trabalho diário, o código é complexo e não é fácil de manusear, mas, com a maneira abaixo, você pode resolver esse trabalho rapidamente.

Quer Aumentar o Salário e Muito Tempo para Acompanhar a Família? Office Tab aumenta sua eficiência em 50% no Microsoft Office trabalhando agora Inacreditável, trabalhar com dois ou mais documentos é mais fácil e rápido do que trabalhar com um. Em comparação com navegadores conhecidos, a ferramenta com guias do Office Tab é mais poderosa e eficiente. Reduza centenas de cliques do mouse e digitação no teclado todos os dias para você, diga adeus à mão do mouse agora. Se você costuma trabalhar com vários documentos, o Office Tab economizará muito tempo. 30- dia de teste gratuito, não é necessário cartão de crédito. Saiba MaisDownload grátis agora

Aqui está um utilitário - Lista de nomes de arquivo in Kutools for Excel, Que pode

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

>> liste os nomes dos arquivos em um ou vários formatos de arquivo especificados para o Excel;

>> lista os nomes dos arquivos, incluindo subpastas e arquivos e pastas ocultos para o Excel.

Teste Grátis Diga adeus à espondilose cervical e de mão de rato agora

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

Lide facilmente com 1500 cenários de trabalho, sem necessidade de perder tempo em busca de soluções, tenha muito tempo para curtir sua vida. Melhore a produtividade de 80% para mais de 110000 pessoas altamente eficazes todos os dias, incluindo você, claro. Deixando de ser atormentado por fórmulas dolorosas e VBA, dê ao seu cérebro um descanso e um bom humor para trabalhar. Avaliação gratuita de 30 dias com todos os recursos, reembolso de 30 dias sem motivo. Um corpo melhor cria uma vida melhor.

Saiba Mais Faça o download

Depois de instalar gratuitamente o Kutools for Excel, faça o seguinte:

1. Ative a pasta de trabalho para a qual deseja listar os nomes dos arquivos e clique em Kutools Plus > Import / Export > Lista de nomes de arquivo.

2. No Lista de nomes de arquivo diálogo, primeiro, clique  para selecionar uma pasta cujos nomes de arquivo você deseja listar, então você pode marcar as caixas de seleção de Incluir arquivos em subdiretórios e a Incluir arquivos e pastas ocultos como você precisa.

3. Em seguida, selecione o formato de arquivo no qual deseja listar os nomes Tipo de arquivo seção.

Verifique Todos os arquivos opção, ele irá listar todos os nomes de arquivo em todos os formatos de arquivo na pasta selecionada

Verifique comum opção e selecione o formato de arquivo específico que deseja para listar os nomes de arquivo da lista suspensa, então ele irá listar todos os nomes de arquivo do formato de arquivo que você escolher na lista suspensa

Verifique Especificar opção, em seguida, digite as extensões de arquivo (usando vírgulas para separá-los) que deseja listar os nomes de arquivo na caixa de texto, então ela listará apenas os nomes de arquivo com as extensões de arquivo de entrada no Excel

4. Escolha a unidade de tamanho que você precisa na lista suspensa em Unidade de tamanho de arquivo seção, se você deseja criar um link para os nomes dos arquivos, marque Crie hiperlinks opção.

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

Dica: se quiser listar todos os nomes de planilhas no Excel, você pode aplicar o Kutools for Excel’ Criar lista de nomes de planilhas utilitário, ele criará uma nova planilha para listar todos os nomes de planilhas vinculáveis.

Kutools for Excel: + ferramentas úteis e úteis, simplificando as tarefas complicadas no Excel em alguns cliques.

Ferramentas de produtividade recomendadas

Guia Office - navegação com guias, edição e gerenciamento de documentos no Microsoft Office 2019 - 2003 e Office 365

Download grátis

Um suplemento profissional para acelerar o Excel 2019-2007, reduza horas de tarefas para segundos

Este add-in inclui dezenas de grupos profissionais, com mais de 300 opções automatizará a maioria de suas tarefas diárias no Excel e aumentará sua produtividade em pelo menos 50%. Como grupos de opções de um clique e conversões em lote.
Agora é sua chance de se acelerar com o Kutools para Excel!

Download grátis