Como excluir pastas usando vba (com exemplos)

Você pode usar os seguintes métodos em VBA para excluir pastas:

Método 1: exclua todos os arquivos da pasta

 Sub DeleteFolderContents()
    
    On Error Resume Next
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    On Error GoTo 0

End Sub

Esta macro específica excluirá todos os arquivos da pasta chamada My_Data .

Método 2: exclua a pasta inteira

 SubDeleteFolder ()
    
    On Error Resume Next
    
    'delete all files in folder
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    
    'delete empty folder
    RmDir " C:\Users\bobbi\Desktop\My_Data\ "
    
    On Error GoTo 0

End Sub

Esta macro específica excluirá toda a pasta My_Data para que ela não exista mais.

A linha On Error Resume Next informa ao VBA que se ocorrer um erro e a pasta não for encontrada, nenhuma mensagem de erro deverá ser exibida.

Em seguida, usamos On Error GoTo 0 para redefinir as mensagens de erro para as configurações padrão.

Se quiser exibir uma mensagem de erro caso a pasta não seja encontrada, basta remover essas duas linhas do código.

Os exemplos a seguir mostram como usar cada método na prática com a seguinte pasta chamada My_Data que contém três arquivos Excel:

Exemplo 1: Exclua todos os arquivos da pasta usando VBA

Digamos que queremos usar o VBA para excluir todos os arquivos da pasta chamada My_Data .

Podemos criar a seguinte macro para fazer isso:

 Sub DeleteFolderContents()
    
    On Error Resume Next
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    On Error GoTo 0

End Sub

Assim que executarmos esta macro e abrirmos a pasta novamente, veremos que todos os arquivos foram excluídos:

Exemplo 2: Exclua uma pasta inteira usando VBA

Se quiser usar VBA para excluir toda a pasta chamada My_Data para que ela não exista mais, você pode criar a seguinte macro:

 SubDeleteFolder ()
    
    On Error Resume Next
    
    'delete all files in folder
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    
    'delete empty folder
    RmDir " C:\Users\bobbi\Desktop\My_Data\ "
    
    On Error GoTo 0

End Sub

Assim que executarmos esta macro e abrirmos o File Explorer, veremos que a pasta chamada My_Data não existe mais:

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como contar o número de planilhas em uma pasta de trabalho
VBA: Como extrair dados de outra pasta de trabalho
VBA: Como deletar uma planilha se o nome contiver texto específico