Criação de uma estrutura de pastas com um caminho definido em uma célula (ou pop-up)

Question

Eu sou novo em usar o VBA do Excel e queria saber se você poderia me ajudar a descobrir uma solução.

Estou procurando criar uma planilha do Excel que crie uma estrutura de pastas em um determinado local.

A criação de um bit de estrutura de pastas que resolvi usando o código do seguinte:

Criando pastas e subpastas com uma macro VBA

O problema que tenho é definir a localização de uma célula, Eu tentei usar o seguinte para definir o caminho:

Dim strFolders As String
strFolders = Worksheets("Sheet1").Cells(7, "A").Value

que forma esse código juntos

Sub CreateFolderStructure()
    Dim objRow As Range, objCell As Range, strFolders As String

    For Each objRow In ActiveSheet.UsedRange.Rows
        Dim strFolders As String
            strFolders = Worksheets("Sheet1").Cells(7, "A").Value
        For Each objCell In objRow.Cells
            strFolders = strFolders & "\" & objCell
        Next
        Shell ("cmd /c md " & Chr(34) & strFolders & Chr(34))
    Next
End Sub

Infelizmente, não é simples assim. Eu recebo um erro de declaração duplicado, embora eu não entenda onde (nem por que, fique à vontade para explicar isso para mim).

Naturalmente, espero que inserir o caminho em uma célula também crie isso como uma pasta (ou um erro devido a '/'), então também estou procurando uma solução para isso (mas estou focando sobre o problema na minha frente agora), eu estava pensando em talvez criar um menu pop-up onde você poderia defini-los, eu não sei exatamente o quão difícil isso é, mas eu ainda estou aprendendo as cordas agora, então meu o foco é em algo fácil por enquanto.

Estou deixando esta questão em aberto aqui enquanto eu continuo a descobrir uma solução, se eu encontrar uma resposta, eu atualizarei isso!

Obrigado

    

Answer 1

Desde que você declarou strFolders duas vezes, uma vez com outras variáveis em 2nd Row e a segunda em Row 4 , para obter Duplicate declaration error

Exclua esta linha do código que você encontra na Linha 4.

 Dim strFolders As String