obter o endereço de um arquivo

[Renato Knupp]

Bom dia senhores, estou precisando criar uma rotina que, quando o usuario clica em um botão abra pra ele um form com uma caixa de dialogo com a arvore de pastas do windows, onde ele irá procurar um determinado arquivo e seleciona-lo . E que retorne uma variável com o endereço e nome do arquivo que ele selecionou. Se eu tivesse uma variavel chamada CAMINHO_ARQUIVO por exemplo ela receberia o caminho da planilha que o usuario selecionou.

CAMINHO_ARQUIVO = C:\Temp\Excel\Planilha.xls

Desde já obrigado.

[João.Neto]

Usa este código:

Sub RetornaEnderecoDoArquivoNaVariavel()

Dim CAMINHO_ARQUIVO As String

CAMINHO_ARQUIVO = Application.GetOpenFilename

End Sub

:ninja: