Hiperlink abrir arquivo

[NERI INACIO]

Boa tarde
Em fevereiro criei o tópico abaixo para inserir hiperlink e abrir um arquivo, onde o amigo Rafael Monteiro me ajudou:
viewtopic.php?f=5&t=4320

Agora preciso fazer com que consiga inserir o caminho de hiperlink até a pasta de trabalho (nela constam vários arquivos - Word, excel, fotos, etc.)

Para inserir o caminho com o nome do arquivo tenho o seguinte comando (caso estiver em PDF)
Private Sub btnanexar1_Click()
Dim sArquivo
Dim sEspecificação As String
Dim sTítulo As String

sEspecificação = "Arquivos de PDF (*.pdf*),*.pdf*"
sTítulo = "Selecione um arquivo PDF:"
sArquivo = CStr(Application.GetOpenFilename(sEspecificação, , sTítulo, , False))
If sArquivo <> CStr(False) Then
Debug.Print sArquivo
Me.txthiperlinkpdf1.Text = sArquivo
Else
MsgBox "Nenhum arquivo selecionado"
End If
End Sub

Alguém consegue ajudar?

[webmaster]

Neri,

Acho que a duvida ficou incompleta. Nao consegui entender o que quer de fato.

[Rafael Monteiro]

Neri,

Para fazer isso você tem que ir adicionando a extensão do arquivo desejado.

Veja um exemplo:

Código: Selecionar todos

Dim sArquivo
Dim sEspecificação As String
Dim sTítulo As String

sEspecificação = "Arquivos (*.pdf*)(*.Docx*)(*.xls*)(*.xlsm*)(*.mdb*),*.* "
sTítulo = "Selecione um arquivo:"
sArquivo = CStr(Application.GetOpenFilename(sEspecificação, , sTítulo, , False))
If sArquivo <> CStr(False) Then
Debug.Print sArquivo
Range("a1") = sArquivo
Else
MsgBox "Nenhum arquivo selecionado"
End If