Como listar todos os nomes de arquivos em uma pasta e criar hiperlinks para eles no Excel?
No seu trabalho diário, você pode precisar importar vários nomes de arquivos de uma pasta para uma planilha e criar hiperlinks para cada arquivo, a fim de abrir o arquivo rapidamente e facilmente. Talvez você possa copiar e colar os nomes dos arquivos e criar um hyperlink para cada um manualmente, mas isso desperdiçará muito tempo se houver centenas de arquivos na pasta. Hoje, vou falar sobre alguns métodos rápidos e interessantes para lidar com essa tarefa.
Listar todos os nomes de arquivos em uma pasta e criar hiperlinks com código VBA
Listar todos os nomes de arquivos em uma pasta e criar hiperlinks com Kutools para Excel
Listar todos os nomes de arquivos em uma pasta e criar hiperlinks com código VBA
Para listar e criar hiperlinks com arquivos de uma pasta, o seguinte código VBA pode ajudá-lo.
1. Ative uma nova planilha para colocar o resultado.
2. Pressione as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
VBA: Listar todos os nomes de arquivos em uma pasta e criar hiperlinks
Sub Example1()
'Updateby Extendoffice
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim I As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
For Each xFile In xFolder.Files
I = I + 1
ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
Next
End Sub
4. Em seguida, pressione a tecla F5 para executar este código e escolha a pasta da qual deseja listar os arquivos na janela Procurar, veja a captura de tela:
5. Após especificar a pasta, clique no botão OK, e todos os arquivos na pasta específica serão listados na planilha ativa com hiperlinks, veja a captura de tela:
Observação: Se houver subpastas na sua pasta específica, os arquivos nas subpastas não serão listados.
Listar todos os nomes de arquivos em uma pasta e criar hiperlinks com Kutools para Excel
Para listar todos os arquivos tanto na pasta quanto nas subpastas e criar hiperlinks para cada arquivo, o recurso Lista de Nomes de Arquivos do Kutools para Excel pode ajudá-lo. Com esse recurso, todos os arquivos na pasta e subpastas serão listados de uma vez com alguns atributos, como nome do arquivo, tamanho do arquivo, hora de criação, pasta que contém e assim por diante.
Se você instalou o Kutools para Excel, siga os passos abaixo:
1. Clique em Kutools Plus > Importar & Exportar > Lista de Nomes de Arquivos, veja a captura de tela:
2. Na caixa de diálogo Lista de Nomes de Arquivos, faça as seguintes operações:
(1.) Clique 
no botão para selecionar a pasta da qual deseja listar os nomes dos arquivos;
(2.) Marque Incluir arquivos em subdiretórios se desejar listar nomes de arquivos dentro das subpastas, marque Incluir arquivos e pastas ocultos se desejar listar os arquivos ocultos;
(3.) Especifique os tipos de arquivos que deseja encontrar e listar na seção Tipo de arquivo;
(4.) Selecione a unidade de tamanho de arquivo que deseja exibir;
(5.) Marque Criar hiperlinks na parte inferior esquerda da caixa de diálogo.
3. Em seguida, clique no botão Ok, e todos os arquivos na pasta e subpastas serão listados em uma nova planilha com os hiperlinks conforme necessário, veja a captura de tela:
Clique para saber mais detalhes sobre o utilitário Lista de Nomes de Arquivos…
Baixe e experimente gratuitamente o Kutools para Excel agora!
Demonstração: Listar todos os nomes de arquivos em uma pasta e criar hiperlinks com Kutools para Excel
Artigo relacionado:
Como listar todos os arquivos em uma pasta e subpastas em uma planilha?
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