MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Abrir pasta especifica via VBA

    lmaria123
    lmaria123
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

    [Resolvido]Abrir pasta especifica via VBA Empty Abrir pasta especifica via VBA

    Mensagem  lmaria123 em 10/5/2012, 12:46

    Olá,

    estou tendo problemas na execução de um módulo via macro.
    O código funciona perfeitamente quando rodado em VBA mas eu queria que um botão executasse esse módulo. Já tentei de todas as formas que eu conheço (que não são muitas) e sempre dá erro.

    A parte do módulo que eu quero executar no botão é:

    Sub testShellEXE()
    Dim lngx As Long
    lngx = fShellExe("C:\Users\Projetos", WIN_NORMAL)
    End Sub

    Já tentei trocar o Sub por Public Function e outras peripércias mas até agora nada.

    Quando eu uso a opção AbrirMódulo na macro, utilizando o procedimento que eu quero testShellEXE() eu recebo uma mensagem de erro dizendo que o nome do procedimento é inválido ou eu não abri o banco de dados.

    Alguém pode me dar um help?!




    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10561
    Registrado : 04/11/2009

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  JPaulo em 10/5/2012, 14:46

    Ola Lídia, seja bem vinda ao fórum.

    Algumas perguntas;

    1º Nesse modulo existe alguma API para poder executar este fShellExe ?

    2º O que pretende fazer na realidade ?

    Nas macros, existe a opção de RunCode e não AbrirMódulo, para funfar tem de estar em Function.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10561
    Registrado : 04/11/2009

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  JPaulo em 10/5/2012, 14:59

    Se a intenção for abrir uma Pasta é mais simples ainda e não necessita de API;



    Public Function testShellEXE()
    Shell "C:\WINDOWS\explorer.exe """ & "Users\Projetos" & "", vbNormalFocus
    End Function


    Qualquer coisa dê um grito.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Instruções SQL como utilizar...
    lmaria123
    lmaria123
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  lmaria123 em 10/5/2012, 15:35

    Oi JPaulo,
    obrigada por responder!
    O que eu estou fazendo é tentar abrir uma pasta a partir de um botão.
    Esse código que você me passou só abre o endereço "meus documentos".
    Eu quero abrir uma pasta mais específica. Já tentei mudar o caminho mas não funcionou.
    O que eu faço?
    lmaria123
    lmaria123
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  lmaria123 em 10/5/2012, 16:04

    Então JPaulo,

    O código que vc me passou mostra a última pasta do caminho. Até aí eu consegui fazer e deu certo.
    Mas o que eu queria mesmo era abrir a última pasta do caminho.
    Como faz?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10561
    Registrado : 04/11/2009

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  JPaulo em 10/5/2012, 16:17

    E qual é a ultima pasta do seu caminho será a pasta Projetos ?


    Public Function testShellEXE()
    Shell "C:\WINDOWS\explorer.exe """ & "C:\Users\Projetos\" & "", vbNormalFocus
    End Function





    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Instruções SQL como utilizar...
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1026
    Registrado : 21/01/2010

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  Gilberto Rocha em 10/5/2012, 16:54

    Só uma sugestão aos moderadores para mudar o título do tópico para facilitar a Busca, sugiro "Abrir pasta especifica via VBA"
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10561
    Registrado : 04/11/2009

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  JPaulo em 10/5/2012, 17:04

    Caro topbr, a duvida deste tópico, prende-se em fazer correr uma função num modulo via Macro, abrir pasta especifica é o detalhe da duvida.

    De qualquer, obrigado pela intervenção.




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidad
    Convidado

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  Convidad em 10/5/2012, 17:11


    JPaulo, por gentileza, renomeie o tópico como considerar mais adequado. Question

    lmaria123
    lmaria123
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  lmaria123 em 10/5/2012, 18:13

    É que a dúvida era como fazer a macro executar o código que eu tinha para abrir uma pasta específica.
    O código funcionava sozinho mas eu não conseguia implementá-lo em uma macro.

    Agora com o código que o JPaule me passou está funcionando perfeitamente, inclusive na macro e no botão de comando que usa a macro.

    Obrigada pela ajuda!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10561
    Registrado : 04/11/2009

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  JPaulo em 10/5/2012, 20:08

    Valew pelo retorno, o forum agradece.

    Precisando de novo estamos ae.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Instruções SQL como utilizar...
    avatar
    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 03/10/2016

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  Dery_santos em 4/4/2019, 15:46

    Bom dia , sei que esse tópico ja esta fechado mas gostaria de saber se tem como usar a função like para o vba abrir um diretório que comece com um determinado caractere, tipo tenho o diretório c:\ 05013_2019 -arquivos digitalizados


    só que eu quero que ele abra a essa pasta que inicia com 05013_2019 independente do reste ante do nome da pasta o critério seria tipo Shell "C:\WINDOWS\explorer.exe """ & "c:\05013_2019*"
    tem como fazer isso?

    Grato
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10561
    Registrado : 04/11/2009

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  JPaulo em 4/4/2019, 16:59

    Olá;

    Sim existe essa possibilidade;

    Num modulo cole e altere para os nomes corretos do caminho das pastas;

    Código:
    Public Function AbrePastaPelaParteDoNome(strPasta As String)
    Dim strCaminho$
    'para chamar a função é assim:
    'Call AbrePastaPelaParteDoNome("05013_2019")
    'pode usar no procedimento ao pressionar de um botão no formulario, por exemplo
    strCaminho = "C:\" & Dir("C:\" & strPasta & "*", vbDirectory)
        Shell "C:\WINDOWS\explorer.exe """ & strCaminho & "", vbNormalFocus
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Abrir pasta especifica via VBA Folder_announce_new Instruções SQL como utilizar...
    avatar
    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 03/10/2016

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  Dery_santos em 4/4/2019, 20:30

    Muito obrigado mestre, vou testa re te aviso.

    Conteúdo patrocinado

    [Resolvido]Abrir pasta especifica via VBA Empty Re: [Resolvido]Abrir pasta especifica via VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 08:00