Declarar como Integer
Primeiro uma observação:
Observação: Declarar a Maxrows
e Maxcols
como Long (Dim Maxrows As Long
), pois muitos tutoriais antigos utilizam o Integer, que possui 2 bytes e
o intervalo de –32 768 a 32 767. Portanto, se a versão do Excel for
maior do que 2007, o programa irá parar após a linha 32767. Já o Long
possui 4 bytes e intervalo de -2 147 483 648 a 2 147 486 647. Em que o
Excel possui um limite de 1 048 576 linhas.
E declarando da forma:
Dim maxRows, maxCols, r, c As Integer
Somente c
está como Integer, todas as outras variáveis são Variant.
O correto seria:
Dim maxRows As Long, maxCols As Long, r As Long, c As Long
De resto o código está correto e funcionaria. Ele funciona com Selection
, então primeiro o intervalo desejado deve ser selecionado.
Solução
Eu gosto de verificar se o caminho existe antes de tentar criar a pasta, para evitar erros (O que já ocorre no código com If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
).
Com ActiveWorkbook.Path & "\" & Rng(r, c)
o caminho do diretório do arquivo Excel está sendo utilizado como referência para criar as pastas.
Segue a maneira que eu utilizo adaptado ao seu código, que não precisa necessariamente estar na mesma pasta que o arquivo Excel, mas o caminho completo deve ser inserido:
Sub MakeFolders()
Dim Rng As Range
Dim maxRows As Long, maxCols As Long, r As Long, c As Long
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
CriarCaminho (Rng(r, c))
r = r + 1
Loop
Next c
End Sub
Public Function CriarCaminho(ByVal path As String) As Boolean
CriarCaminho = True
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(path) Then
Exit Function
Else
On Error GoTo DeadInTheWater
fso.CreateFolder path
Exit Function
End If
DeadInTheWater:
MsgBox "A folder could not be created for the following path: " & path & ". Check the path name and try again."
CriarCaminho = False
Exit Function
End Function
Referência
Para utilizar o Scripting.FileSystemObject
, a referência deve ser adicionada no VBE.
Em Ferramentas -> Referências...
Adicione o 'Microsoft Scripting Runtime'
