Criar múltiplas pastas e subpastas a partir de uma lista de dados no Excel

Imagine que tem uma lista de nomes de colaboradores num intervalo de uma folha de cálculo e pretende criar pastas individuais para cada um, de modo a armazenar as respetivas informações. Criar manualmente cada pasta pode ser moroso — mas existem métodos eficientes para acelerar este processo. Neste guia, partilho várias abordagens práticas para gerar rapidamente pastas com base nos valores indicados nas células.

Criar pastas com base nos valores das células

• Utilizando o comando MD e o Bloco de Notas
• Utilizando uma funcionalidade poderosa – Kutools para Excel
• Utilizando código VBA

Criar pastas e subpastas com base em valores de células com código VBA

Criar pastas com base nos valores das células

Nesta secção, exploramos diversos métodos em pormenor, com instruções passo a passo abrangentes para criar pastas com base numa lista de valores de células — de forma rápida e sem esforço.

Criar pastas a partir de uma lista utilizando o comando MD e o Bloco de Notas

Transformar uma lista do Excel em pastas usando o comando MD e o Bloco de Notas é um truque inteligente que combina scripts batch simples com a potência do Excel para manter tudo perfeitamente organizado. Este método é ideal para criar múltiplas pastas rapidamente, sem precisar fazê-lo manualmente. Eis um guia passo a passo para executar esta tarefa:

Passo 1: Utilize o comando MD para Criar fórmulas

Copie ou introduza a seguinte fórmula numa célula vazia junto ao seu primeiro valor (por exemplo, B1) e, depois, arraste a alça de preenchimento para aplicar a fórmula a todos os itens da sua lista.

="MD "&A1

Passo 2: Copie e cole as fórmulas para um ficheiro do Bloco de Notas

1. Prima «Ctrl + C» para copiar as células que contêm a fórmula do comando MD.
2. Abra o Bloco de Notas e prima «Ctrl + V» para colar os comandos num arquivo gerado.
   

Passo 3: Guarde o ficheiro do Bloco de Notas como ficheiro .bat

Clique em «Guardar como» no separador «Ficheiro» do Bloco de Notas. Na caixa de diálogo «Guardar como», selecione um diretório onde pretenda criar várias pastas, dê um nome ao ficheiro com a extensão .bat e, por fim, clique em «Guardar». Veja a captura de ecrã:

Passo 4: Faça duplo clique no ficheiro .bat para gerar várias pastas

1. Feche o ficheiro do Bloco de Notas e navegue até à pasta onde guardou anteriormente o ficheiro .bat.
2. Agora, prepare-se para a magia: faça duplo clique no ficheiro e veja várias pastas a serem criadas automaticamente, todas de uma só vez. Veja a demonstração abaixo:
   

Criar pastas a partir de uma lista utilizando uma ferramenta poderosa – Kutools para Excel

Com a poderosa funcionalidade «Criar Pasta com Base no Intervalo» do Kutools para Excel, pode criar pastas de forma fácil e rápida a partir de uma lista do Excel. E não se limita apenas a pastas básicas: o Kutools permite-lhe ainda criar estruturas complexas com subpastas multinível, tudo numa única operação. Com apenas alguns passos simples, transforme os seus dados do Excel num sistema de pastas perfeitamente organizado e aumente significativamente a sua produtividade.

Após instalar o Kutools para Excel, clique em «KUTOOLS PLUS» > «Importar/Exportar» > «Criar Pasta com Base no Intervalo» para abrir a caixa de diálogo Criar Pasta com Base no Intervalo:

1. Selecione os valores das células com base nos quais pretende criar pastas;
2. Em seguida, clique no botão para especificar a pasta de destino onde pretende guardar as pastas;
3. Por fim, clique no botão OK.
   

Resultado:

O Kutools processará a lista da sua folha e criará uma pasta para cada entrada no destino indicado. Navegue até à pasta de destino para ver o resultado. Veja a captura de ecrã:

Criar pastas a partir de uma lista utilizando código VBA

Utilizar código VBA no Excel transforma a tarefa tediosa de criar pastas a partir de uma lista num processo rápido e totalmente automatizado. Esta secção mostra-lhe como aplicar código VBA para gerar pastas com eficiência.

Passo 1: Abra o editor de módulos VBA e copie o código

1. Mantenha premidas as teclas «ALT + F11» no Excel e abrirá a janela «Microsoft Visual Basic for Applications».
2. Clique em «Inserir» > «Módulo» e cole o seguinte código na Janela do Módulo.
   Código VBA: Criar pastas com base numa lista de valores de células

   Sub CreateFoldersFromSelection()
   'Updateby Extendoffice
       Dim FolderPath As String
       Dim Cell As Range
       Dim SelectedRange As Range
       Dim FolderName As String
       On Error Resume Next
       Set SelectedRange = Application.InputBox("Select the range with folder names", "Kutools for Excel", Type:=8)
       If SelectedRange Is Nothing Then Exit Sub
       On Error GoTo 0
       
       With Application.FileDialog(msoFileDialogFolderPicker)
           .Title = "Select the destination Folder"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           FolderPath = .SelectedItems(1) & "\"
       End With
       
       For Each Cell In SelectedRange
           FolderName = FolderPath & Cell.Value
           If Cell.Value <> "" And Not FolderExists(FolderName) Then
               MkDir FolderName
           End If
       Next Cell
   End Sub
   
   Function FolderExists(ByVal Path As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(Path) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Passo 2: Execute o código

1. Após colar este código, prima a tecla F5 para o executar. Na caixa de diálogo que surgir, selecione os valores das células a partir dos quais pretende criar pastas e, em seguida, clique em OK.
   
2. Depois, na janela seguinte «Selecionar a Pasta de Destino», indique o caminho onde pretende guardar as pastas criadas e clique no botão OK. Veja a captura de ecrã:
   

Resultado:

Após executar o código VBA, aceda ao diretório de destino para visualizar o resultado. Lá encontrará as pastas recém-criadas, cada uma correspondente a um item da sua lista do Excel. Veja a captura de ecrã:

Criar pastas e subpastas com base em valores de células com código VBA

Por vezes, poderá encontrar-se numa situação em que precisa de criar não só pastas, mas também as respetivas subpastas, tudo com base nos dados contidos nas células do Excel. Para o ajudar nesta tarefa, apresento-lhe aqui um código VBA.

Passo 1: Prepare os dados

Primeiro, introduza os dados conforme ilustrado na seguinte captura de ecrã: coloque os nomes principais das pastas na primeira coluna e os nomes das subpastas na segunda coluna.

Passo 2: Abra o editor de módulos VBA e copie o código

1. Mantenha premidas as teclas «ALT + F11» no Excel e abrirá a janela «Microsoft Visual Basic for Applications».
2. Clique em «Inserir» > «Módulo» e cole o seguinte código na Janela do Módulo.
   Código VBA: Criar pastas e subpastas com base em valores de células

   Sub CreateFoldersAndSubfoldersWithUserInput()
   'Updateby Extendoffice
       Dim Rng As Range
       Dim Cell As Range
       Dim basePath As String
       Dim fldrPicker As FileDialog
       Dim FolderPath As String, subfolderPath As String
       On Error Resume Next
       Set Rng = Application.InputBox("Select the range of cells (two columns: one is folder column, another s subfolder column):", "Kutools for Excel", Type:=8)
       If Rng Is Nothing Then Exit Sub
       On Error GoTo 0
       Set fldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
       With fldrPicker
           .Title = "Select the Base Folder Path"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           basePath = .SelectedItems(1)
       End With
       If Right(basePath, 1) <> "\" Then basePath = basePath & "\"
       For Each Cell In Rng.Columns(1).Cells
           If Not Cell.Value = "" Then
               FolderPath = basePath & Cell.Value
               If Not FolderExists(FolderPath) Then MkDir FolderPath
               If Not Cell.Offset(0, 1).Value = "" Then
                   subfolderPath = FolderPath & "\" & Cell.Offset(0, 1).Value
                   If Not FolderExists(subfolderPath) Then MkDir subfolderPath
               End If
           End If
       Next Cell
   End Sub
   
   Function FolderExists(FolderPath As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(FolderPath) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Passo 3: Execute o código

1. Após colar este código, prima a tecla F5 para o executar. Na caixa de diálogo que surge, selecione os valores das células a partir dos quais pretende criar pastas e, em seguida, clique em OK.
   
2. Na janela seguinte, indique o caminho de destino onde pretende guardar as pastas criadas e, de seguida, clique no botão OK. Veja a captura de ecrã:
   

Resultado:

Após executar o código VBA, aceda ao diretório de destino para visualizar o resultado. Verificará que as pastas e as respetivas subpastas — conforme indicado pelos valores das células — foram criadas com sucesso, tal como ilustrado na seguinte captura de ecrã:

Artigos Relacionados: