Ir ao conteúdo
  • Cadastre-se

Criar pasta com Excel


Ir à solução Resolvido por Basole,

Posts recomendados

Bom dia,

 

Gostaria de saber se alguém sabe uma forma de criar pastas com o excel.

 

Criei um script para criar pastas automaticamente, mas gostaria que qualquer usuário, mesmo sem muito conhecimento conseguisse criar estas pastas.

Então pensei em criar um formulário no excel, onde a pessoa irá preencher o nome da empresa e o número e ao clicar em inserir o script vai criar a pasta.

 

O script é: (reduzi para não ficar muito grande, mas tem muitas outras pastas)

 

Cole no bloco de notas e salve como .bat e faça um teste de como fica.

 

md EmpresaTeste_0999

cd EmpresaTeste_0999
md Contabil\2014 Contabil\2014\Arquivos Contabil\2014\Livro_Caixa Contabil\2014\Nao_Identificados Contabil\2014\PerdComp Contabil\2014\Sped_Contabil Contabil\2014\Sped_Contribuicoes Contabil\2014\Sped_FCont Fiscal\2014 Fiscal\2014\Guias 
 
No caso, teria que fazer alguma forma para no script buscar os dados do formulário, algo do tipo:
 
md <busca_dados_campo_empresa>_<busca_dados_campo_numero>
cd <busca_dados_campo_empresa>_<busca_dados_campo_numero>
md Contabil\2014 Contabil\2014\Arquivos Contabil\2014\Livro_Caixa Contabil\2014\Nao_Identificados Contabil\2014\PerdComp Contabil\2014\Sped_Contabil Contabil\2014\Sped_Contribuicoes Contabil\2014\Sped_FCont Fiscal\2014 Fiscal\2014\Guias 
 
Não sei nem se teria como fazer isso e nem por onde começar. Agradeço qualquer informação.
 
Se precisar esclarecer alguma dúvida é só perguntar.
 
Link para o comentário
Compartilhar em outros sites

voce pode usar o MkDir ex. "C: \Empresa..\ bla\bla\bla\"  sem precisar de comandos externos ou a sugestão abaixo. Cole a funcao abaixo em um modulo e para testar coloque os dados em (A1) :  C:\EmpresaTeste_0999\Contabil\2014 Contabil\2014\Arquivos Contabil\2014\Livro_Caixa Contabil\2014\Nao_Identificados Contabil\2014\PerdComp Contabil\2014\Sped_Contabil Contabil\2014\Sped_Contribuicoes Contabil\2014\Sped_FCont Fiscal\2014 Fiscal\2014\Guias 

 

Private Sub CriarNovaPasta()
    MakeDir (Plan1.[a1])    'subst. [A1] pelos seus TexBox1 & textbox2 (contatenando)
    If True Then
        MsgBox "Pasta Criada em: " & Plan1.[a1]
    Else
    End If
End Sub


Public Function MakeDir(ByVal STRPATH As String) As Boolean
' fonte: http://www.accessguru.net//Articles_MSAccess/0054-Create%20a%20folder%20using%20VBA.php
    If Right(STRPATH, 1) = "\" Then
        STRPATH = Left(STRPATH, Len(STRPATH) - 1)
    End If
    Dim SPLITSTRPATH() As String
    SPLITSTRPATH = Split(STRPATH, "\")
    Dim VAR1 As Integer
    Dim MERGE As String
    For VAR1 = 0 To UBound(SPLITSTRPATH)
        If VAR1 <> 0 Then
            MERGE = MERGE & "\"
        End If
        MERGE = MERGE & SPLITSTRPATH(VAR1)
        If Dir(MERGE, vbDirectory) = "" Then
            MkDir MERGE
        End If
    Next
    MakeDir = True
    Exit Function
End Function

Link para o comentário
Compartilhar em outros sites

  • Solução

O 'MKDir' é um comando da liguagem vba para criar pasta, o equivalente ao 'MD' no DOS. 

Para este caso, qualquer usuario tem que ter um minimo conhecimento (pra num fazer c¶Ù¤ñ¾Ð), de como criar uma pasta ou a experiencia de copiar e colar para este procedimento, caso contrario deve usar o recurso nativo do windows (botao direito do mouse, novo, pasta, bla, bla, etc,etc). Segue anexo um exemplo pratico.

CriarPastaNoExcel.zip

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...