Como fazer pastas a partir de uma planilha do excel

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

Adicionar uma coluna em branco à esquerda da coluna "foldernames" por direito; clicando no cabeçalho da coluna e escolhendo "Inserir".

Realce a primeira célula na coluna em branco. Digite o seguinte texto na barra de fórmulas, e copiá-lo para as outras células em branco.

= foldernames "MD"

Abra o seu editor de texto simples e criar um documento em branco. Copiar e colar o código abaixo no inicio do ficheiro. Substitua "C: Temp" com o caminho completo para o diretório no qual você gostaria de adicionar pastas. Por exemplo, para adicionar pastas para "canções" dentro de sua unidade "D", use o caminho "D:. Canções"

@echo off

cd "C: Temp"

Volte para o seu livro do Excel. direita; clique no cabeçalho da coluna que contém as fórmulas "MD" e selecione "Copiar". Volte para o seu editor de texto e cole os valores no final do arquivo. Seu arquivo agora deve ser algo como isto:

@echo off

cd "c: Temp"

md foldername1

md foldername2

..

Salve o arquivo no seu desktop como "CreateFolders.bat." Ir para o ambiente de trabalho e execute o arquivo de lote clicando duas vezes em seu ícone. Suas pastas estão agora prontos para uso.

Abra o livro do Excel. Segure a tecla "Alt" para baixo e pressione "F8" para abrir a janela Macros.

Enter "MakeFolders" em "Nome da macro," e clique no botão "Create". Isso abre o editor VBA.

Copie e cole o seguinte macro no editor:

MakeFolders sub ()

Dim Rng Como Gama

maxRows fraca, maxCols, r, c As Integer

Definir Rng = Seleção

maxRows = Rng.Rows.Count

maxCols = Rng.Columns.Count

Para c = 1 Para maxCols

r = 1
Do While r <= maxRows
Se Len (Dir (ActiveWorkbook.Path "" RNG (R, C), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path "" RNG (r, c))
On Error Resume Next
Fim se
r = r + 1
laço

Próximo c

End Sub

Salve o arquivo como uma pasta de trabalho habilitado para macro, abrindo o menu "Arquivo" e escolha "Salvar como". Digite seu nome de arquivo preferido e escolha "Livro do Excel Macro-Enabled" ao lado de "Salvar como tipo de arquivo." Clique no botão "Save".

Realce as células que contêm os nomes das pastas. Mantenha pressionada a tecla e pressione "Alt" "F8" para abrir a janela Macros. Dê um duplo clique em "MakeFolders." As pastas estão agora prontos para uso.