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:
- Digite na lista o caminho completo da pasta que deseja criar
- Digite mais caminhos das pastas nas células abaixo
- Após preencher a tabela com os caminhos clique no botão Criar Pastas
- 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: