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

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

Grato,

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.

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.

Obrigado a todos pela atenção!

Do exemplo que voce deu, nao entendi quanto ao comando no batao.