Ir ao conteúdo
  • Cadastre-se
Iurigdn

RESOLVIDO Criar pasta com Excel

Recommended Posts

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.
 

Compartilhar este post


Link para o post
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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia,

 

Meus conhecimentos em VBA são muito limitados. Não entendi este código. Tentei jogar no excel, mas não deu em nada.

 

Não entendi também o que seria este MKDir.

 

Tentei aprender com este fonte que você citou, mas fiquei mais confuso ainda porque está em Access.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×