Excel Arquivo Diretório excel vba

[JOAOMORAES83]

Amigos, existe a possibilidade via código excel vba para abrir um diretório, escolher um arquivo e vincular essa escolha a uma célula?

Muito Obrigado!

[Visitante]

 

Experimente:

Sub InsereLinkParaArquivoXL()
 Dim arqX As String, nomeArq As String
  ChDir "C:\AlgumaPasta\"
  arqX = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="SELECIONE O ARQUIVO")
  If arqX = "Falso" Then Exit Sub
  nomeArq = Right(arqX, Len(arqX) - InStrRev(arqX, Application.PathSeparator))
  ActiveSheet.Hyperlinks.Add Anchor:=[A1], Address:=arqX, TextToDisplay:=nomeArq
End Sub

 

[JOAOMORAES83]

PERFEITO!!

 

Muito Obrigado!!