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?
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Hiperlink abrir arquivo
-
- Colaborador
- Mensagens: 62
- Registrado em: Sáb Fev 27, 2016 7:31 pm
Re: Hiperlink abrir arquivo
Neri,
Acho que a duvida ficou incompleta. Nao consegui entender o que quer de fato.
Acho que a duvida ficou incompleta. Nao consegui entender o que quer de fato.
- Rafael Monteiro
- Consultor
- Mensagens: 277
- Registrado em: Seg Nov 28, 2011 8:27 am
- Localização: Sorocaba - SP
- Contato:
Re: Hiperlink abrir arquivo
Neri,
Para fazer isso você tem que ir adicionando a extensão do arquivo desejado.
Veja um exemplo:
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