Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
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






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

×