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 de uma pasta no Excel com VBA
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 + 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.Listar nomes de imagens ou nomes de arquivos de formato específico de uma pasta no Excel com Lista de Nomes de Arquivos
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.
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.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.
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.
Baixar Arquivo de Exemplo
Como se destacar da multidão, trabalhar facilmente e aproveitar a vida com tranquilidade?
Kutools para Excel irá melhorar em média sua 80% eficiência diariamente, dando-lhe muito mais tempo para passar com a família e aproveitar a vida.
300 ferramentas avançadas resolvem 80% problemas do Excel, você não precisará mais lutar para encontrar soluções e poderá completar o trabalho com mais facilidade.
Lide facilmente com 1500 cenários no Excel, economizando pelo menos 1 hora por dia para você.
Torne-se um especialista em Excel em 5 minutos, ganhe reconhecimento das pessoas e oportunidades de promoção.
Utilitários de um clique lidam com processamento em massa, evitando milhares de cliques do mouse, diga adeus à síndrome do mouse.
Liberte-se de decorar fórmulas e VBA complexos, dê uma pausa ao seu cérebro.
Mais de 110.000 funcionários de alta eficiência e mais de 300 empresas renomadas no mundo escolhem Kutools.
Por apenas $39, mas vale muito mais que um treinamento de $4000 de outras pessoas.
Experimente grátis por 30 dias sem nenhuma limitação, devolução integral do dinheiro em 30-dia sem nenhum motivo.
Ferramentas de Produtividade Recomendadas
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins