Como Criar Pastas a Partir de uma Planilha do Excel

Planilhas do Excel podem ajudar a automatizar a tarefa de criar múltiplas pastas. Uma forma de gerar pastas é criar um script usando intervalos de dados e o comando em lote "md". Outro método é usando uma macro através da função MkDir, um componente do Microsoft Excel VBA. Isso oferece flexibilidade e é menos demorado. Inclua apenas nomes de pasta adequados na sua planilha para estas técnicas funcionarem. Nomes de pastas não devem conter aspas, ou quaisquer dos caracteres ",", "/", ":", "*", "?", "<", ">" e "|".

Usando um Arquivo em Lote (Batch File)

Passo 1

Organize seus nomes de pasta em uma única coluna. Clique no cabeçalho da coluna e digite "NOMESPASTAS" no campo de nome ao lado da barra de fórmulas.

Passo 2

Adicione uma coluna em branco à esquerda da coluna "NOMESPASTAS" clicando com o botão direito no cabeçalho da coluna e escolhendo "Inserir".

Passo 3

Destaque a primeira célula na coluna em branco. Insira o seguinte texto na barra de fórmulas e copie para as outras células em branco.

="md "&NOMESPASTAS

Passo 4

Abra seu editor de texto simples e crie um documento em branco. Copie e cole o código abaixo no início do arquivo. Substitua "C:\Temp" pelo caminho completo para o diretório no qual você gostaria de adicionar pastas. Por exemplo, para adicionar pastas em "Músicas" dentro do seu drive "D", use o caminho "D:\Músicas".

@echo off
cd "C:\Temp"

Passo 5

Volte à sua pasta de trabalho do Excel. Clique com o botão direito no cabeçalho da coluna contendo as fórmulas "md" e escolha "Copiar". Volte ao seu editor de texto e cole os valores no final do arquivo. Seu arquivo deve ficar parecido com isto:

@echo off
cd "c:\Temp"
md nomepasta1
md nomepasta2
..

Passo 6

Salve o arquivo na sua Área de Trabalho como "CriarPastas.bat". Vá à Área de Trabalho e execute o arquivo em lote clicando duas vezes no ícone. Suas pastas estão prontas para uso.

Usando uma Macro

Passo 1

Abra a pasta de trabalho do Excel. Segure a tecla "Alt" e pressione "F8" para abrir a janela Macros.

Passo 2

Insira "CriarPastas" sob "Nome da Macro" e clique no botão "Criar". Isso abre o editor VBA.

Passo 3

Copie e cole a seguinte macro no editor:

Sub CriarPastas()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer

Set Rng = Selection

maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count

For c = 1 To maxCols
    r = 1
    Do While r <= maxRows
        If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
            MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
            On Error Resume Next
        End If
        r = r + 1
    Loop
Next c
End Sub

Passo 4

Salve seu arquivo como pasta de trabalho habilitada para macro abrindo o menu "Arquivo" e escolhendo "Salvar Como". Insira seu nome de arquivo preferido e escolha "Pasta de Trabalho Habilitada para Macro do Excel" ao lado de "Salvar como tipo". Clique no botão "Salvar".

Passo 5

Destaque as células contendo os nomes das pastas. Segure a tecla "Alt" e pressione "F8" para abrir a janela Macros. Clique duas vezes em "CriarPastas". As pastas estão prontas para uso.

Dica

A macro cria pastas no mesmo diretório da sua pasta de trabalho ativa. Para criar pastas no diretório que contém a pasta de trabalho habilitada para macro, substitua todas as instâncias de "ActiveWorkbook" no código por "ThisWorkbook".

Aviso

Se você estiver usando o Microsoft Excel 2007, pode não ter acesso à janela Macros e à aba "Desenvolvedor" por padrão. Para habilitar, clique no orbe do Microsoft Office e escolha "Opções do Excel". Clique em "Popular" no painel de Categoria e escolha "Mostrar aba Desenvolvedor na Faixa de Opções". Clique em "OK" para salvar suas alterações.

• Como Ativar o Recurso de Internet Sem Fio no IBM Thinkpad
• Como Remover a Borda ao Imprimir