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]Como criar uma macro que abra um outro arquivo?

    Compartilhe

    JulioFreitas1977
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/06/2012

    Como criar uma macro que abra um outro arquivo?

    Mensagem  JulioFreitas1977 em 27/6/2012, 01:20

    Seja esse arquivo um planilha ou um outro banco de dados do access....

    Grato,
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11241
    Registrado : 30/12/2009

    Re: [Resolvido]Como criar uma macro que abra um outro arquivo?

    Mensagem  criquio em 27/6/2012, 01:27

    Nem é preciso macro para isso, pode fazer direto por vba. Em um módulo, coloque:

    Código:
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Agora, supondo que você tenha um campo texto aonde terá o caminho da arquivo a ser aberto, coloque no botão:

    Código:
    Call ShellExecute(0, vbNullString, Me.NomeCampo, vbNullString, vbNullString, 1)
    Esse método abre qualquer arquivo que tenha um programa associado no Windows.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    fieldNome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 16/04/2012

    Re: [Resolvido]Como criar uma macro que abra um outro arquivo?

    Mensagem  fieldNome em 29/6/2012, 23:30

    Para abrir uma planilha :

    Vá no evento ao clicar do botão, e coloque o comando:

    FollowHyperlink ("caminho aqui")

    Exemplo:

    Abrir planilha.

    FollowHyperlink ("C:\Users\Rodrigo\Downloads\produtos.xlsx")

    Porém, caso mude de caminho, dará erro, então, minha sugestão é criar duas variáveis caminho e o nome do arquivo. Bote o arquivo que quer abrir na mesma pasta.

    Coloque isso no comando.

    dim caminho as string
    dim arquivo as string

    caminho = CurrentProject.Path 'traz o caminho atual do projeto.
    arquivo = "\produtos.xlsx"

    FollowHyperlink (caminho + arquivo) ' vai concatenar o caminho e o arquivo e abrir, independente de mudar a pasta em que estiver ou não.


    Para abrir componentes do Windows, por exemplo, a calculadora, coloque :

    Vba.Shell("calc.exe")

    E assim vai.

    Caso a resposta seja útil, clique no positivo.

    JulioFreitas1977
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 20/06/2012

    Obrigado pessoal!

    Mensagem  JulioFreitas1977 em 30/6/2012, 21:31

    Obrigado a todos pela atenção!

      Data/hora atual: 18/8/2018, 07:06