Criar pastas automaticamente no Excel com VBA

Neste artigo você aprenderá como criar pastas automaticamente com VBA no Excel.

Veja detalhes do código e da planilha e baixe gratuitamente a planilha de criação de pastas automaticamente no VBA Excel.

A planilha funciona da seguinte forma:

1. Digite na lista o caminho completo da pasta que deseja criar
2. Digite mais caminhos das pastas nas células abaixo
3. Após preencher a tabela com os caminhos clique no botão Criar Pastas
4. As pastas serão criadas nos caminhos completos conforme especificado, caso não esteja correto o caminho o sistema irá preencher como "Pasta Criada!" e caso não consiga porque já existe ou o caminho está incorreto será exibida a mensagem "Erro de acesso a caminho/arquivo"

As pastas serão criadas em segundos, e não tem limite de quantidade de pastas, você pode criar 10, 100, 500, 1000 pastas automaticamente em um clique no botão da planilha do Excel.

Código VBA Excel para Criar Pastas em Lote

Para criar pastas do Windows no Excel você pode usar o próprio Excel.

O código VBA para criar uma pasta de trabalho é MkDir.

A sintaxe é bem simples, basta usar MkDir c:\teste, passando então o caminho da pasta após o comando MKDir.

Nó código criamos dois procedimentos:

• lsCriarPasta: Cria uma pasta automaticamente com o caminho da pasta à partir da referência lPasta que é passada, e retorna em strStatus o status da criação da pasta do Windows.

• lsCriarPastas: Este procedimento faz um loop por todas as células tabela e chamando o procedimento lsCriarPasta para cada uma das linhas da tabela.

Para usar este código em outra planilha basta abrir o VBA no Excel e clique em Inserir->Módulo e no módulo.

Então copie e cole o texto do código abaixo no módulo da planilha do módulo do Excel e pode chamar o procedimento lsCriarPastas.

<pre lang="vb">
Private Sub lsCriarPasta(ByVal lPasta As String, ByRef strStatus As String)
    On Error Resume Next
    
    strStatus = "Pasta Criada!"
    
    MkDir lPasta
        
    If Err.Number > 0 Then
        strStatus = Err.Description
    End If
End Sub

Public Sub lsCriarPastas()

    Dim iTotalLinhas    As Long
    Dim i               As Long
    Dim strStatus         As String

    iTotalLinhas = CriarPastas.Cells(CriarPastas.Rows.Count, 2).End(xlUp).Row
    
    i = 9
    
    While i <= iTotalLinhas
        lsCriarPasta CriarPastas.Range("B" & i).Value, strStatus
        CriarPastas.Range("C" & i).Value = strStatus
        i = i + 1
    Wend
    
    MsgBox "Processo concluído!"
End Sub
</pre>

Download Planilha de Criação de Pastas Windows

Realize o download da planilha de exemplo para criar pastas no Windows à partir do Excel neste botão abaixo. Basta se inscrever na nossa newsletter gratuita para o download automático.

Curso Excel Completo – Do Básico ao VBA

Quer aprender Excel do Básico, passando pela Avançado e chegando no VBA? Clique na imagem abaixo: