Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Hiperlink em Form E...
 
Notifications
Clear all

Hiperlink em Form Excel Abrir Pasta

 
2024 - VBA & Macros
10 Posts
4 Usuários
0 Reactions
1,886 Visualizações
RSS
NERI S
 NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Preciso inserir um Hiperlink que abra uma pasta de trabalho (em VBA). Na verdade são várias pastas, porém uma diferente a cada registro de cliente.
Abaixo tenho o código para abrir arquivo, no exemplo PDF.

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

O que é necessário alterar?

 
Postado : 01/07/2016 11:42 am
brunoxro
 brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Por favor disponibilize um arquivo de exemplo.

 
Postado : 01/07/2016 2:23 pm
 EDIVAN
(@edivan)
Posts: 119
Estimable Member
 

Olá, boa noite!!! Apenas troque a sua linha "Debug.Print sArquivo" por essa "ActiveWorkbook.FollowHyperlink sArquivo"...

Visite meu blog e canal do youtube... Saúde e paz.

programacaopassoapasso.wordpress.com

 
Postado : 01/07/2016 4:35 pm
NERI S
 NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Boa tarde

Não consegui com a alteração sugerida pelo Edivan. Não consigo postar porque o arquivo é grande,mas basta fazer um form com um textbox e um botão com o comando que citei....acho que a alteração não deve ser grande para que eu consiga usar. Abraço e obrigado pelas ajudas..

 
Postado : 03/07/2016 11:53 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Neri

Seja bem-vindo ao fórum!

Não precisa ser a planilha original, monte um exemplo e anexe aqui fórum.

Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/07/2016 11:56 am
NERI S
 NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Boa noite
Segue em anexo um arquivo bem simples com o exemplo

Explicando:
Ao clicar no botão ele abre o explorer para adicionar uma pasta em PDF, porém eu preciso adicionar uma pasta inteira onde constam arquivos Word, Excel, PDF, etc.... mas quero salvar o caminho da pasta inteira. No exemplo coloquei um seta mostrando o que deveria ser enviado para o endereco do formulário, deveria ser C:WindowsCamera.
Como farei isto?

 
Postado : 03/07/2016 3:26 pm
NERI S
 NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Alguém se arrisca em dar um palpite. ..?

 
Postado : 06/07/2016 5:33 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pelo que entendi, você não quer o Caminho do Arquivo e sim somente o PATH da Pasta selecionada.
Se for isto, troque a sua rotina pela a abaixo :

Private Sub btnanexar1_Click()
    Dim diaFolder As FileDialog
    
    'Open the file dialog
    On Error GoTo ErrorHandler
    
    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
        diaFolder.AllowMultiSelect = False
        diaFolder.Title = "Selecione a Pasta e clique OK"
        diaFolder.Show
    
    Me.TextBox1.Text = diaFolder.SelectedItems(1)
    
        Set diaFolder = Nothing
    Exit Sub

ErrorHandler:
    Msg = "Nenhuma Pasta Selecionada !"
    Style = vbError
    Title = "Precisa selecionar uma Pasta..."
    
    Response = MsgBox(Msg, Style, Title)
    Me.TextBox1.Text = ""

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/07/2016 7:07 am
NERI S
 NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Mauro Coutinho
é isto mesmo que eu preciso.
Obrigado novamente

 
Postado : 07/07/2016 10:16 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Neri

Pelo jeito você não os links que postei, pois você não clicou na mãozinha da resposta correta do Mauro.

[]s
Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/07/2016 10:39 am
Forum Jump:
  Tópico Anterior
Próximo Tópico