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.

Baixe agora o Kutools para Excel!

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?